VOUS AVEZ LA PASSION? 





DISCOLOGY 



POUR VOUS SURPASSER 

3 Programmes en 1 
pour votre Amstrad CPC 




L'EDITEUR: 

Un Editeur univ, 
exceptionnelle, 

LE COPIEUR: 

Un Copieur intégral pour la sauvegarde de 
Il vous étonnera par ses performances et sa 

L'EXPLOREUR : 

Un graphique animé en Temps Réel" qui vous révi 
disquettes. Un programme sans équivalent. 

LES 7 POINTS FORTS DE DISCOLOGY 

> Lo facilité : Grâce aux Fenêtres, aux Menus Dért 

> La vitesse : 160 Ko de Langage Machine pur ! 

> La documentation : Un Manuel complet et une I* 

> La compatibilité : Il gère toutes les extensions mémoire et 

> La performance ; Incroyable et absolue. 

> L'inédit: Du vraiment jamois vu! 

> La référence : Des milliers d'utilisateurs enthousiastes en 
à l'Etranger, DISCOLOGY est reconnu et acclamé par I 



a boîte à outils 

c.) tout devient possible. 



)s disquettes et cassettes. 

nplicité d'utilisation. 



ants et à l'Aide Intégré 



technique approfondie. 
etleslecteurs51/4pouce 



le MERIDIEN Informatique S et 7, La conebière 13001 Mansille Tel.: 91.94.15.53 



^~§ 



Version 5.1 pour Amstrad CPC 
Disponibilité immédiate. 



BON DE COMMANDE 

D Je commande DISCOLOGY au prix de 350 F 

□ Je commande Master Save V 3.2 (Copieur seul) au prix de 1 90 F Je règle ma commande : 

□ Je possède déjà Master Save et je commande DISCOLOGY. D par chèque joint (port gratuit) 

Je joins ma disquette Moster Save et je ne paye que 160 F □ contre- remboursement (+ 30 F de frais de port) 

Nom : ■ Prénom : _ 

Adresse : 

Code Postal : 



. Ville: 



Tél.: 



A retourner à MERIDIEN Informatique - 5 et 7, La Canebière - 13001 MARSEILLE 




AMSTRAD DISQUETTES 

SlCROMANieJ 




DIX SLR DIX 199F 

+MERCENARY4HARDB \l 1 -ARMAI' ri l-l.I'A 
MAN+LEYIA I HAN-r-FiOBSLEIGH 
+SH ACM .l-U+TR ANTOR+CHOLO 
+XENO+I0THFRAME 
LES C.KANTS DF. L'ARCADE 2 199F 
+SIREE1 FIGIITER-tSIDEARMS 
-BIONTC COMMANDO 
-, ! ';-.:.:- :,.- ,.;i y. ;, ■■ ,.jv Kl Pi 
12JELX EXCEPTIONNELS 149F 
-CYRFRMJID+Dkkl k.Kl'OR+MASK 
+HL.OOD BROTHERS+NEBULUS 
IERCULES+NORTHS1 AR-FXOI.ON 



I F S V 



VERS 



■:nomstrikesback 
+m ar a u d e r+ r a n a r a m a 
ocean dynamite 199f 

+ f i. a t 00 n +pred a to r+k arno v 
+crazy cars+comba i school 
+sai.amas i fjfr-dkju ■:■-- 
lesbestdeisgoi.» 199f 
+oltkun-*gai;ntlet2 
+caliporn1a games+720" 
+roll1nc-thum5fr 
i fsiif1 isdf.ta1to 199f 
target renecade+arkan01d 1 
-arkasoid 2+bubbi.kbobblk 

tll .YING SHARK+SLAPFIG1IT 

<;ame set and match 2 iwf 
• match day 2-baskk t master 
+si pkr hang on+ciiampion chip 

SPRINT+TRACK AND Flhl.D 
+C R I C K k 1+ S N OOKER+G OLF 
GOl.D SILVER BRONZE 199F 
23 EPREUVES SP0K1 tVES EPYX 
HISTORY IN THF. MAKING 249F 
MEGA COMPILATION US GOl.D 
+LE A RD E RB O ARD-> E X F K F S S 
RAIDkR+IMPOSSIliLE MISSION 
+SUPERCYCLE+GAUNTLET+Bt \CH 
HEAD+lNFTLTRArOR+KLNC, FU 
MAS I kK+SFY HUNTER+ROAD 
RUNNER-tBRUCELFF+GOOMkS 
+V.ORI.D GAVI.+ KAID-BEACII HEAD 
FORCES MAGIQUES 199F 

+L.A PAtvTHFRk ROSk-^ESTERN 



PAC! \ 



149F 



H STAR 

-ZYN.APS+TRANTOR tE\OLON-XE\ IOI S 
+VENOM STRIKKS BArK 
LF VDFRBOARD PAR .' 169F 

-LEADER BOAPD+LFADF 
FOI RVAMh+W Cl. LEADERBOARD 
TEN MEGA CAMES 3 Mff 

*LEADERB0ARD-I»I'HFRAMF 
+I.ASÏ MISSION+riRELORDiROCCÛ 
iRANARAM.AtFlCHTERPlLOT 
ICKF.R 



LES AS Dl CIEL 



FIS! AMI FHKOi M ES IÏ9F 

■i-kNIliRORICIR-BI GGYBOY 
^IKARI WARRIOR- DRAGON" S LAIR 
t-THUNDERC ATS 

FR \NK HRl NO'.S BIG BOX 179F 
-FRANK BRUNO BOXING+COMM. 
• CHOST'N GOBBLINS+AIRWOl.k 
?BOM.IA(.'K+SAH0'!'L( R-AIRWOLF... 
LES FUTURISTES 199F 

>BOR MOK \M- S k.+l F SYNDROME 
-t RAFI ON ET XUNKtCYBOR 
-Dk.SPOTIK DkSK.A+S'l \RHOY 
-LIIEPISS-rZ COMME ZARK DAVOR 
SIMULATION PACK 195F 

-OR WD PRIX irtfi+OI AD---S1 PlPÎKI 



+KI.NG FI MASTER+BRUCE LEE 
+L'C!llMATA-.TIIEVï"AYOFTIGER 
-AVENGER'S ^MOI.RAITRILOGY 



-TIER VEST PAS JOUER 



l .FM. F INTSD' ARCADE 195F 
+ROAD RUNNER+1NDIAN A JONES 
+R1G \R+G U'NTL F.T DEEP DL NO. 
W1ST. l.OLDHITS.1 19SF 

tTRANTORtSOLOMONS KEY 

+RAMFART+CAPTAIN AMERICA 



-mPERSPORT-PINOPONG+MIKIE 
TOP TEN COLLECTION 145F 
-SABOTEUR 1-SAB.2S1GMA7 
-CRITIC AL M A SS+AIR WOLT -TH AN ATO! 
-DEEP .STRIKE+COMBATLYNX 
+BOMBJ \CK 2+11 RBO kSPRI I 
ALBUM EFY\ 1H9F 



+IIEAUOM : .RHF.ALS 
+ COBRA * W IZZB ALL+ TANK 
GAMF.SEI MATCH 179F 

+TI;N>ilS+HYPp:RSFOK'(i-PINGP0N(i 
4FOOT*KONAM1GOLF'BASEBALL 
+BOXING+POOI.+SUP. DECATHLON 
FLITEfiPACKN'2 145F 

IMAGINE ARCADEH1TS 14SF 



r- NOUVEAUTES^ 


ACTION SERVICE 




ARCADE WIZARD 


149F 


BARBAR1AN 2 


U9F 


BLACKLAMP 


i.WF 


BOMBUZAL 


149F 


CARRIER COMVLAND. 


l-W 


CHICAGO 30"S 


I*ff 






FLIGHT TRAINER 


1«F 


CORRl PI 'ION 




DARK FUSION 


i4<ir 


DOUBLE DRAGON 


149F 


DYNAMICDLO 




ELITE 


IMF 


F j<i COMBAT P1L0T 
FISII 


me 


UHF 


CARY 1 . HOI mOt 


135 F 


Hl .'M AN KII.I .INC. MACH. 


149F 


IN CREDIBLE SHRLNK. SF 




BJHIAN MISSION 




1RON LORD 


I6SF 


JINKS 




LAST DUEL 


149F 


LED SIORM 


149F 


MEURTRES AYEMSF 


mi 




me 


PACLAND 


H5F 


PARANOÏA COMPI.FA 




PROJECT STEALTH FIGHT 


195F 


PUFFYSSAGA 


165F 


PURPLE SATUKN DAY 


199F 


ROAD W \RS 


139F 


RI.NMNGMAN 




SKATE BALL 


I63f 



NOUVEAUTES i — HIT PARADE 

ATE OR DIE 145F , V i ,-.r: F oninpiriM; i. 



SKATE OR DIE 
SKYX 
STAR TREK 

SOLDIEROFl.IGH'l 
SU PE RM AN 
THF. ARCHON COLL. 
THE DEEP 

TIIEELIMINATOR 
IHF MUNSTERS 

THETEMPLKOFH.Y.. 
TIOER TIGER 
1 IMF SCANNER 
TIMES OF LORE 
TINri\ SUR LA LUNE 
TRIVIAL PURSUM 
NOUVELLE GENERATION 



Boutiques MICROMANIA 
Bénéficiez à Paris des prix 
MICROMANI A 

Une nouvelle boutique 
MICROMANIA à Paris. 
Ouverture en mars. 

Forum des Halles 

5, rue Pirouette ■ Niveau — 2 

Métro et R.E.R. les Halles 



Printemps Haussmann 
64, bd Haussmann 
Espace Loisirs - Sous-sol 
75008 PARIS 
Métro Havre-Caumartin 



_ DEMENT ! 

SUPER PROMOTION 
MANETTES ET CABLES 

PORTF.I I.F.FS MICROMANIA 95F 

MANETTE USOOI.O 109F 

1+ MONTRk DIGITALE GRATUtl kl 
MANETTE SPEEDKING 109F 

PR03XXI 129F 

CHFFIAH MAC1I! 129F 

CHF.ETAH I2Ï+ S5F 

CORDON l'OI ri KkA^CIIEMENT 
DE DEl X MANETTES 49F 

CAHl.E MAGNETO W1ST. 49F 
CABLE EX TENSION JOYSTI. 49F 
CAtil.k IkLFCHAROEME.M 49F 

HOUSSE DE PROTECTION 

HOUSSE ("PC 464 COLL. S9k 

HOI SSE CPC 4M MONO fiOF 

HOI iSECPColîiiCOLTL K9F 

HOL'SSKCPt c;2S MONO 89F 

DISQUETTES VIERGES 

4 CASSETTES VIERGES 29F 

-'■ DISQUETTES VIFRGHS WF 



i HIT PMI 


/\Ui 




4X4 OFF ROAD RAI. 


NO 


149F 


AFTERHI RNLR 




149F 


BATMAN 






CR.AZY CARS 2 




KWF 


DRAGON MNJA 




149F 


ECHELON 






GALACTIC COSQU 


ROR 




HEROFS OF THF LANCE 


199 F 


1 ARCHE DU CAFT BLOOF 




LE MANOIR DE MOR 1 FV 


199F 






139F 


OPERATION WOLF 






RAMBO 3 




119F 


ROHOCOP 




149F 


R TYPE 






SAV AC.F 






SECRET DEFENSE 






TECHNOCOP 




149F 


THF. I.ASTSTNJA2 




145F 


FHUSDERBLADE 




149 F 


TIGER ROAD 






TITAN 




1WF 


WFCI.LM.ANS 




[49k 



944 IURBOCUP 

AIRBORNE RANGER 

CYBERNOIDÎ 

HAI.kY THOMPSON'S 

01 V "MPIQL'E CHALL. 

F1RE ANDFOROFT 

F1.KJIBAI I.MANAGER2 

GAME OVER 2 

GUERILI A W.AR 

GI.NSH1P 

LA GUERRE DFS ETOll kS 

I k.MPIKI: CONTRE ATT 

OFFSIIOREWARR10R 

MOTOR MASSACRE 

PAC MANIA 

PIRATES 

RA5TAN 

RHn.RNOFTIlEJEDl 

SCRABBLE DEl U\k 

THF .VISDiCATOR 

10TAL ECLIPSE 

TYPHOOS 

\l( IORYROAD 



SOLDES 49F 

720' MONTE CHRIS"! 

CHARLIE CHAPLIN RAMPARTS 

KILL UNT1L DkAO STIFFI IP 

LORIClkl. HIT 6 I ENTH FRAME 

MATAHAR1 THEFURY 



^BSSÏ? 



DEMENT !!! Kit de téléchargement 99 F 
avec ce kit vous allez pouvoir télécharger 24h/24, 
7 jours sur 7 des centaines de hits pour le simple prix d'une 
communication téléphonique sur 3615 AMCHARGE. 



DIX SUR DiX 149F 

+MFKCENARY+1 LARDBALL+ARMAGLEDON 
+LEVLATHAN-BOBSLF.!CiH-.SHACKI.FI) 
+TRANTOR+CHOI.O+XENO+IOTnFR 
T. ES GEANTS DE L'ARCADE 2 14»" 
+STREET F1GIITER+SIDE ARMS 
+B10MC COMMANDO 
+GLNS\IOKF.-DI^O[ ATOR-5.I1ACKLLD 
12 JEUX EXCEPTIONNELS 12»" 
iCYBF.RNOin-DEFI.FKTOR-MASK 
+HLOOD BROT1IERS+NEBULUS 
-HERCULES-NOK"IHSTAR+E\OI.ON 
-VENOM S TRIKES BACK 
-LES MAITRES DE L'UNIVERS 
• MARAUDER+RANARAMA 
OCEAN DYNAMITE 149F 

-PLAÏOON-PREDATOR-KARNOV 
+CRAZY CARS-COMBAT SCHOOi 
-SALAMANDER+DRil.l.l K-CiRY/OR 
1 .F.S DFFIS DE TAITO 139F 

TARGET RENEGADE+ARKANOID I 
+ARKAN0I1) 2+BUBBLE BOBBLE 
+FLYINC SHARK+SLAPFIGHT 
LES BEST DE US GOI.D 149F 

+01 JT RI N+GAUNTLET 2+CAL1FOR 
CAMES- lift -ROLLINCTHl'NDËR 
GAME SET AND MATCH 2 149F 
+MATCH DAY 2+BASKET MASTER 
+ SUPER IIANG ON i CHAMPION CHIP 
+SPRINT+TRACK ANDEIEED 
+CR ICK ET- S NOOK E R-C O L F 
SPACEACE B9f 

+ZYNAPS+mANTOR-EX0L0N+XE VIOLS 
-VENOM SI RIKESHACK 
TFN MEGA GAMF.S .1 129F 

-LEADERBOARD+].uTHFRAMF. 
-l.vST MISS10N-EIREI.0RD-ROCCO 
-RANARAMA-FIC1ITERFIL0T 
-IMPOSSA tClTY SL -DRAGONTALK 
GOI.D SII.VER BRONZE 149F 

:.! EPREUVES SPORTIVES EPYX 
IIISTORY IN THE MAKING 199E 
+L E ARDERBO A R D+E X PRESS 
-RAIDER+IMPOSSIBLE MISSION" 
-SUPERCYCLE+O \L NTI FI -BEACH 
HEAD+INE1EIRA10R+KUNGFU 
+MASTER+SPY IILNT+ROAD RL'N 
+BRUCELEE-GO0NIFS 
+WORI..GAME + RAID-BEACIIHEAD 
FORCES MAGIQUES 1491 

+LA PANTHERE ROSF.+WKS TER\ 
+OAMES+CI FVER ANDSMART 
+OPERATION NEM01DAKAR4X4 
LES AS IH (TEL 149F 

+ADY TACTICAL FICIIT+ ACE- SPIT 



-FR -Ai; BRI NO HOXING-COMM. 
-GHOSTN GOBBL1NS-AIRWOLF 
-BOMJACKiSABOTF.LR+URWOLF.. 
SIMULATION PACK 145F 

-CU kSU PRIX 5iKI-QUADtSUPERSK[ 
KARATE ACE 115F 

nST+UTCHlMATA-AVENGER+KLNG 
FUMASTER-s\M.rRll.CXjY+F,RI CE 
.ELITE h PACK \"J 95F 

-DRAGONS LAIR 1 +2-PAPERBOY 
ENDURO RACCER -OHOSTN 



GORHI -r. 



AMSTRAD assett 




"^ amstar 



Boutiques MICROMANIA 
Bénéficiez à Paris des prix 
MICROMANIA 



DEMENT ! 

Une nouvelle boutique 
MICROMANIA A PARIS 
ouverture en mars 

Forum des Halles 

5, rue Pirouette - Niveau — 2 

Métro et R.E.R. les Halles 



Printemps Haussmann 
64, bd Haussmann 
Espace Loisirs - Sous-sol 
75008 PARIS 
Métro Havre-Caumartin 



ARCADE ACTION 
+BARBARIAN+RFNI-.GA13E 

+SI PERSPRINT+RAMPAGE 
HNTER.N «TONAL KAR ATI 
AMST. GOI.D HITS N"3 
+TRANTOR- SOLO MON S Kl 
*WCLEADERBO\RF>+ER '■■ 



-GREEN BERET- VF M* K 



Kl-,:' : 



•RM 



+SAB. I +SAHOTLTR :-ÎIÛM. 
-CRTnC.ALM.AS S- klRWOLF-THAN \~OS 
GAME SET MATCH 129F 

-[ENMS-HYPERSPORT-BASEBALL 
•PING PONGtFOOT+SUPER DEC ATH 
+KONAMI GOI.E+Ï50X1NG+POOU 
ELITE 6 l'AUK V2 95F 

IMAGINE ARCADE HITS 99F 
LEADFHHOARD "PAR .1" 145F 
LES EUT! M1S1ES 149F 

LES GEANTS D'ARCADE 115F 
OCEAN STAR HIT N'2 991 



SUCROMANIA] 



"«S^rsESS^" u 



3615 



MICROMANIA C'EST DEMENT» 



.-NOUVEAUTES — 


ACTION SERVICE 


119F 


ARCADE WIZAKI) 




BARBARIAN2 


N91 


BEACKLAMP 




BOMBUZAL 


99 F 


BITCHEK HILL 


99F 


CARRIER COM M AN n 




CHICAGO 3Û"£ 


99F 


CHUCK YEAGERS ADV 




FLICHT TRAINER 


95 F 


HARK FUSION 




DOUBLE DRAGON 


99F 


DYNAM1C Dl. 


SW 


ELITE 


«F 


ET fi COMBAT PILOT 


141F 


C.ARYL. HOTSHOT 


951" 


HUMAN KILLING MACH 


991 


INCRED1BLE SHKINK. SI 


99F 


1RON LORD 


125 F 


JINKS 


99F 


LAST DUEL 


99E 


LEDSTORM 




MEURTRES A VENISE 




N1M1TZ 


99F 


FACLANB 




paranoïa complex 


U-j|. 


PROJECT STHAI.IH FIGin 


145F 


PI RP1.F. SATURNDAY 




ROAD WARS 


99 F 


RUNNINGMAN 


95F 


SRI 


99F 


SKATEOR DIF. 


95 F 


SOl.DIF.ROFLIGHT 


B9F 


STAR TREK 


ssr 


SLTERMAN 


"5 F 


THF ARCHON COLL. 




TIIEDEEP 


991 


THEELIMINATOR 


95F 


THETEMPLEOFTIiEFLÏ 




T1GER TIGER 


95 F 


TIME SCANNER 




TIMES OFLORE 




TINTIN SURI. ALI NE 


I4SF 


TRIVIAL PURSl'IT 




NOUVELLE GENERA FION 


119 F 


W.WDERER 




WHIRLIGIG 


*9F 



— HIT PARADE , 


4X4 OFF ROAD RACING 


m 


AFTFRBl. RNER 




B ATM AN 




CRAZYCARS2 




DRAGON NINJA 


"" 


GALACTICCONQl EROK 




HFROES OF THE LANCE 


"5 F 


NETIIER WORLD 




OPERATION WOLF 


■-■■' >r 


ROBOCOP 


'i-F 
95 E 


SAVAGE 


SECRET DEFENSE 




TECHNOCOP 


99F 


THE LAS 1 NIN.IA - 




THUNDERBLADE 




"Il (.1ER ROAD 




TITAN 




WARiN MIDDLEEARTH 


99F 


WSCLEMANS 


m 



V,H BORNE RANGER 
BARBARIANlPSYNOi 

cybernoid: 

D.Al.EY IHOMPSOVS 
OL1MPIQUECHALL. 
ECHE] ON 



GtERILLAWAR 
Cil NSHIP 

L'ARCHE LU. TAPI BLOOl 
LA GUERRE DES El OIEES 
I "EMPIRE CONTRE ATT 
MOTOR MASSACRE 
OFF" SHORE WARRIOR 
PAC MANIA 
RETURNOFTI1EIEDI 



VICTORY ROAD 



Votre jeu chez vous dans 48 h* en téléphonant au 93.42.57.12 
TITRES I PRIX 



>g 



Précise: cassette I : Disk _l Total à payi 



NOtVtAL PAYEZ PAR CARTE BLEU LNIERBANCAIRI 

nsi i i i . i i i m 



L^ 



■s 



INITIEZ-VOUS A L'INFORMATIQUE DES^PROS" 

AVEC VOTRE 
AMSTRAD CPC 464/664/6128 




LES 7 POINTS FORTS DE L'OUVRAGE 



UN GUIDE 
QUI VOUS ASSURE LA 
MAITRISE DES LANGAGES 
INFORMATIQUES 

I ! ogo, Basic, Turbo-Pascal 5 , 
— — Assembleur sont les Ion- 
ique, lant pédagogique 



; ■ 



trfei 



.rl« 



progrc 



elle. Un cho- 
isi consacré. En 
ivanl poinl par point, vous 
■ rapidement capable de | 
os applications 
exemples, que 
vous pourrez essayer sur votre I 
AMSTRAD, vous y aideront De I 
plus, vous apprendrez la pro- 
grammation structurée qui vous I 
donnera des réflexes de pro- 
grammeur professionnel. 



TOUT SUR LES 
SYSTEMES D'EXPLOITATION 



I e CP/M est le système d'exploitation de 
, I ^ I nombreux micros, en particulier des CPC 
664 et 6128. L'essentiel des logiciels ont été 
créés autour de ce système. Notre guide vous 
I permet de connaître les mots-clés du CP/M, et de 
son développement le CP/M PLUS, ainsi que ceux 
du AMSDOS, le DOS particulier d'AMSTRAD 




CREEZ 

VOS PROPRES GRAPHIQUES 
ET VOS JEUX 

s fonctions graphiques de base 
I votre AMSTRAD vous sont déjà 
. Avec notre guide, vous pour 
déborder d'imagination et visualiser 
créations les plus folles Elles apparaitr 
devant vous plus belles encore que vous 
l'auriez espéré En outre, vous pourrez a 
vos propres jeux ! 



M 



APPRENEZ A JONGLER AVEC LES LOGICIELS PROFESSIONNELS 

lliplon e< Dbase II font partie de la panoplie classique de l'utilisateur de micro Aussi, notre 
uvroge s'est-il attardé sur ces deux "monuments" ' Mulliplan, pour effectuer des calculs en 
Dbase II, pour gérer vos fichiers, n'auront plus de secret pour vous Mieux ! vous 
s adapter a vos besoins C'est bien pratique pour gérer votre budget familial ou pour opli- 
iploitotion de votre carnet d'adresses. 



VOTRE CADEAU GRATUIT : 
DURELL BIG4 

U ne formidable compilation de 
4 jeux passionnants spécialement adaptés à 
votre CPC 464/664/6128. 
4 titres : 

• Combat lynx 

• Critical Mass 

• Turbo Esprit 

• Saboteur 
IMPORTANT 

Choisissez votre version ; disquette ou cassette, 
au verso! 





5 PILOTEZ DES SYSTEMES 
/ AMUSANTS... 

OU TRES UTILES 

^i race aux nombreuses opplicalio 



>. Votre Minitel dé- 



former votre AMSTRAD 
e de contrôle électroni- 



central, ou fabrique 
matique de numé 
bien d'autre* cho; 



» réguler votre chauffage 




DES COMPLEMENTS/MISES A JOUR 
PLEINS DE SURPRISES AGREABLES 



.in- 



" ploi 

menter les performances d< 
CPC 464/66-1/6128", 






eden 






AMSTRAD 



é tous 'es 2 
constitué d'un envoi de prés de 150 pages 

certitude d'y découvrir di 



1 service complémentaire payant peut ètn 
errompu sur simple demonde ou en nou 
ivoyant tout complément/mise à jour sou 



6/ 


DOPEZ VOTRE AMSTRAD 




. 


AVEC DES JEUX 
INEDITS 




IV 


ous disposez dé[6 de nomb 
jeux d'orcode . Mais notre g 


V 


zz 


éle de nombreux outres que 
le plaisir de saisir au clavier 
arder et de stocker sur vos mé 


dj 


res, v 


«—> Un PW* ° P°" 




avec \ 


O, proches 





UN CONTACT DIRECT 
AVEC L'AUTEUR 

Kl i otre système de carte-réponse vt 
□vec l'auteur Une question 3 Ecrivez 



sur une de 


nosca 


tes pré 


adressées 


fau- 


teur vous 


epond 


perso 


nellement 


chez 


vous. Une s 


jggesl 


on S Le 


auteurs la 


pren- 


dront en 


considération 


et pourrc 


nl la 


développe 


rdans 


les cor 


ipléments. 





AU SOMMAIRE : 
13 CHAPITRES CLAIRS ET PRATIQUES 



• Le système CPC 



"Ecrive 



• Périphériques 



Conception des cartes-mères des 
AMSTRAD CPC 464, 664 et 61 28 

Les mémoires ROM et RAM 
■ Systèmes d'exploitation des 664 et 61 28 
Introduction au dos 
AMSDOS 
CP/M 2 2. 
CP/M + 

• Les langages du CPC 

Assembleur 

Logo 

Turbo- Pascal 

Lo programmation structurée 

* Les graphiques 

Tests de 



Les c 



s de l'AMSTRAD 
r TV couleur 



iels 



mbleur 



Les 
• Son 
Progro 
Progra 



Multipti 

Son organisation, les commandes, 
les fonctions, programmer sous Multiplon 
Dbasell, création de Fichiers, gestion de 
fichiers, traitement de variables, création 
d'un masque de saisie 



Module périte 

La souris AMX 

• Programmes 
Savoir programmer 

Moniteur : assembleur/desassembleur/ 
debugger 

Applications mathématiques 
Les utilitaires 
Programmes divers 
■ Fabrication de circuits additionnels 
Connexion AMSTRAD/Minilel 
Connexion AMSTRAD/Magnétophone 
cassettes 

Commande circuits TTL, CMOS et 
de puissance 

Application en téléphonie 
Mémoires EPROM 

• Annexes 

Codes et caractères ASCII 
Le codage en hexadécimal 

• Maintenance 
Dépanner 

Maintenance des UC, des périphérique 

• Notions scientifiques de base 

Introduction à l'électronique 
Electronique analogique 



BON DE COMMANDE 



Ecttt 



/eka. I. 



OUI,envoyez-mor, avec mon cadet 
"Comment exploiter toutes les ressour 

CPC464/664/6128"(réf 9400], 2 grc 



5, 759Ji 



rs Céd« 



uil, une compilation de 4 logiciels de jeux : 

s et augmenter les performances de votre AMSTRAD 

U volumes 21 X 29,7 cm, 1 224 pages 450 F TTC 

port compris 

Je souhaite recevoir gratuitement ma compilation sous forme de cassette □ 

dise D 






piété et mis à jour tous leideu». 
ron,a U prixde215FTTCportc< 



edonudei 



■t 

I 



VOTRI GARANTI! : i 

[ SATISFAIT OU REMBOURSE 4 

TZ. < 

ifiill 

**<>*—, ™»™ i 




ADRESSES 



AM'ATEUR; 26. rue Dugommier- 75012 PARIS 



CRAZY CROC Gérard LAMOTTE- Préfy- 71290 CUISERY. Tel 




Récapitulatif dos adresses parues dans ie n° 38 de CPC 
et dans les n° 27, 29 et 30 dAMSTAR & CPC 



3 Joliot Curie -22420 



L'ECHO DES MICROS: Jean-Marc LECHAPTOIS-44 bis, 
Monge - 92800 PUTEAUX. Tél. : (1) 47.75 84 76 



LE STRAD: Gilles BARBET -6. place Bouleau -62126 WIMILLE 

MAD-MAG : Pascal AL8EROLA- Résidence des Iles - Les hauts 
des Sanguinaires -20000 AJACCIO 



METRO BOULOT MICRO: Régis MARRY- 10. rue de Klroua- 
kan- 92229 Bogneux Tel. : (1) 46.57 54.20 

rue de Colmar- 59290 



AMSTRAD MONTHLY - Xavier RENAULT - BP 72 - 22500 PAIMPOL 



RUNSTRAD : 58 rue de la Bnquetterie - 1 7000 LA ROCHELLE 

MICRO-BOY : 4 Allée Bemy d'Houville - 93 WQ LIVRY- GARGAN 



b Mgr Benzler Manon - 57 100 THIONVILLE 

1 lot La VigneMère- 13580 



CPC/ Hors -Série 



"Sx? 



TRACEUR DE 
FONCTIONS • 

TRI • 
METEO • 

Croque • 
mission • 
listing couleur • 

SATAN1A • 



NOM: 
Adresse : 
Code Posial 
Date : 



Disc CPC HS 14 

sour l'achat de la disguette, nousloignons gratuitement i a revue HS13) 

3 140 F Non abonné U 1 10 F Abonné 

REVUE HS 14 SEULE 



_ Ville - . 
— Signaler 




EXCEPTIONNEL! 



EPRISE DE 

VOTRE CPC 

POUR L'ACHAT 

D'UN PC 1512 





PRIX PUBLIC TTC 


AVEC REPRISE 
DE VOTRE 
CPC 464 
MONO 


AVEC REPRISE 
DE VOTRE 
CPC 464 
COULEUR 


AVEC REPRISE 
DE VOTRE 
CPC6128 
MONO 


AVEC REPRISE 
DE VOTRE 
CPC 61 28 
COULEUR 


PC 1512 
SD MONO 


5325 F 


4890' 


4890' 


4890 F 


4790' 


PC 1512 
SDCOUL 


7460 F 


65W 


5990' 


5990' 


5790' 


PC 1512 

DD MONO 


7104' 


6190 F 


5990 F 


5990' 


5790' 


PC1512 
DDCOUL 


9238' 


81 90' 


7690' 


7690' 


6990' 



OFFRE VALABLE JUSQU'AU 31/03/89 

TELEPHONEZ-NOUS VITE 



(1)42 93 24 58 

ou passez nous voir... 



UTILITAIRES 



GFR , la gestion de fichier " plue rapide et plue «impie à ulili - 
ser tu meure" Créez voi fiche» commeVOUSvoulez.il n'impose 
rien : fichiers de 80 Ko, jusqu'à 1997 caractères à affecter à 
un nombre de rubrique pouvant atteindre 665 . . . 
Création. suppression, modification. impression de fiches, recher- 
che multicritera» ... De plue .GFR est fourni avec des masques | 
prêts à l'emploi : gestion de catalogues de dlaquette , de ci 
à vin, de documentation . . . 

100 % langage machine. pour 6128 uniquement. a 275 F GFR n'i 
pas une gestion de fichier , c'est un cadeau 



PRINT est pour ceux qui ont la chance devoir une imprimante I 

-Un HARDCÛPV hyper complet: 

imprime tous les modes écran — impression totale ou per fenê- 
tre— paramétrable -échelle de 1 à 7 (bonjour les posters) 

-Un TRAITEMENT DE TEXTE (un vrai) 

-36 COMMANDES RSX: 
le paramétrage sens galère ( S0UL.1 est quand même mieux 
que PRINT#e,CMR»27);"- B ;CHR*(1)...) 

Pour tous les CPC . 240 F 



Pour ceux qui ne se contentant plus du BASIC ou qui parlent 
courremment hexadecimal.il y a DEBUGGER.23 fonctions coré- 
sidantes : moniteur , désasaembleur.relogeur (enfin le déplace - 
| ment des programmes en langage machine), breek points et pas à 
l pas (visualisation de r état des registres avant ET après une 
instruction),... INDISPENSABLE. Pour 6128, 245 F 



■Vil* COIN/1 le magicien du minitel Transmission 
de fichiers, mémorisation de pages, interface et soft : 490F 



Avec SCREEN vous avez tout ce qu'il faut pour modifier, assem- 
| bler, faire subir mille tortures aux Images les plus diverses: 
-Un LOGICIEL DE MONTAGE avec DAO 

43 options dont copie, incrustation, rotations, inversions.. . 
-Un CONVERTISSEUR DE MODE ECRAN 

tramages .suppressions et changements de couleurs 
-Un COMPILATEUR 

pour ne plus gaspiller 17 Ko a chaque sauvegarde d'écran 

Pour tous les CPC . 230 F 



DAO . CAO 



GRAPH-SET est un logiciel de DAO spécialement adapté au DESSIN TECHNIQUE (PLANS, SCHEMAS. Cl ) .11 offre : 

' Une BIBLIOTHEQUE DE SYMBOLES redéfinissables 1 • Un 0A0 complet lignes, points. hachures aérographe 
•Des FONCTIONS FAÇON PAO : copie, incrustation,inversions... -5 ECRANS en mémoire SIMULTANEMENT 
• Une sortie sur IMPRIMANTE PARAMETRABLE | • fonction UNDO.MULTIFENETRAGE. LOUPE ... 
Pour CPC 612B. 37S F. Disquette DEMO 60 F (GRAPH-SET + C.I. ASSISTANT). Testé dans CPC n' 37 


Avec TEST, L'ORDINATEUR SE TRANSFORME EN OSCILLOSCOPE et calcule puis affiche EN CONTINU les signaux qui résultent 
d'un ensemble de circuits intégres TTL . L'ELECTRONIQUE SANS MATERIEL, SANS COMPOSANT. SANS CABLAGE NI SOUDURE. 
Idéal pour L'INITIATION et L' ENSEIGNEMENT : aucun risque de court-circuit. Indispensable pour la CONCEPTION : plus besoin d'at- 
tendre la dernière soudure (il est trop tard) pour constater une erreur. 

AFFICHAGE DE 8 TRACES-ARRET SUR IMAGE- IMPRESSION DES DIAGRAMMES-MESURE D'INTERVALLE 
BIBLIOTHEQUE de 53 ci. TTL f portes. compteurs. registres, .. i- générateurs. monostables. lignes à retard PROGRAMMABLES 
Pour tout CPC . 2 versions : TEST 750 a 500 F , TEST 2000 é 750 F 


CI. ASSISTANT est un logiciel sans équivalent sur CPC. Reproduction fidèle des DAO tournant sur PC (qui coûtent ...) , il permet 

le dessin des CIRCUITS IMPRIMES avec des caractéristiques qu AUCUN AUTRE LOGICIEL NE PROPOSE : 

DESSIN EN 4 COULEURS ce qui permet de voir SUPERPOSEES. PAR TRANSPARENCE, les 2 faces et l'implantation des composants. 

Le dessin VECTORIEL : une SURFACE de TRAVAIL de 640.640 mm. l'effacement de la grille ou d'un élément SANS AFFECTER le dessin. 

100% RESIDENT: de l'implantation de la première pastille jusqu'à la sortie sur imprimante .TOUT est en mémoire. 

BIBLIOTHEQUE et GENERATEUR de SYMBOLES. Indication de la position d'un composant a partir de son numéro. Echelle 1 et 1/2 .. 

Effacement, copie et déplacement de zones MACRO-COMMANDES 

Nouvelle version 3.0 encore plue puissante Pour 6128800F 


m 


Ces logiciels sont chez certain» revendeur* ou par correspondance 




















ADRESSE 










8 Rte de BORDEAUX 
B443Q MARSAC 


CP VILLE 






PORT: â la commande 20 F. en contre remboursement 50 F 
renseignements et commandes par téléphone: 53.04.12.58 


PORT : 

TOTAL \ 


■ 



31000 H£N BLOC EN HFJWIBE ! 

31996 EETUBN 

32000 KEH SAISIE ÉCRAN 

32999 BETUBN 

33000 BEH TBACE QUADfi I LUGE IOZ 

33999 RETURN 

34000 BEH SITUEE DECOB 

34999 RETURN 

35000 BEH SITUEE DECOB 

35999 EETUBN 

36000 REM TBACE CEO II 

36999 BETUEN 

37000 BEH EFFACAGE CBOII 

37999 KETUBN 

38000 BEH SAISIE NUHEBIOUE 

38999 BETUEN 

39000 BEH SITUEE DECOB vue elevatioi 
39999 BETUBN 

40996 BETUBN 

41000 BEH EFFACAGE LIGNE DU HAUT 

41999 BETUBN 

44000 BEH Calcul de CG et de RE 

44999 BETUBN 

47000 BEH penutation cyclique Dates 

47998 BETUBN 

59000 RDI SAISIE POINT SUR ECRAN 



>UH 


59996 BETUBN 


>QD 


>PD 


61000 BEH SAISIE POINT SUS ECBAN 


>AC 


>fiA 


61999 BETUBN 


>PG 


>PE 


62000 BEH CADBE 


m 


>AZ 


62010 CUS 


>FE 


>PF 


62015 BORDES 14 


>ÏC 


>RP 


62020 PLOT 0,0 


>LH 


m 


62030 DBAU 639,0,3 


>LL 


m 


62040 DRAW 639. 39b, 3 


>Nf 


)PH 


62050 DEAN 0.399,3 


>LR 


>« 


62060 DfiAB 0,0,3 


>lk 


>PJ 


G2999 RETURN 


>PH 


>TK 


63000 BEH Passaee en M0D2 


m 


>PK 


63999 CHAlN'HlM" 


m 


)UW 


64000 BEH Passage sur H0D1 


m 


>0A 


64999 CHAIN'rlûDi' 


m 


)FZ 


65000 BEH Saisie caractère 


m 


>0B 


65005 PBINT 


>CD 


>PD 


65010 PBINT'Votre chou :' 


>ZF 


)ZT 


65020 CI="":C$=1NKEÏI:IF C»=" THEN 65020 


>FL 


>PE 


65030 C-ASC(Ct) 


>IF 


>UB 


65035 IF f>13 ÛB C= 32 THEN C=27:GOT0 65535 


m 


>PH 


650*0 IF C>96 THEN C=C-96;G0TO 65535 


>co 


>GH 


65050 IF C<96 THEN C=C-64 


JEU 


>6A 


65060 SOUND 1,20,1 


>Llf 


>AK 


65535 RETUBN 


>NG 




NOUVEAU 
POUR CPC 



LECTEUR 5" 1/4 

POUR 

CPC464 - CPC664 • CPC6128 

tmDD «-fcJTA f„ c 



NOUVEAU 
POUR CPC 



LE PLUS PERFORMANT 

DU MARCHE 

(LECTEUR NEC) 



® Stocker 800K octets & Doubler la capacité du DIRectory 

Lecteur BOpistes, DFDD, 96tpi... 
*> Accédez à toute la bibliothèque CP/M éditée sur 5" 1/4 

grâce aux utilitaires disponibles chez « WILD WEST » 



MEC 



Sx- 



BON DE COMMANDE «WILD WEST», sateo st-Mani» de i 8 Br asque . m : 90.77.6i.3e 



NOM : 

PRENOM : . . . 

ADRESSE : 

VILLE : 

CODE POSTAL: 

serveur 99 .77. 64 .94 



] Ch*Qwr Bsnoir» 



«MANDE « DOCUMENTATION 



• Lecteur 1840, 00"= 
•Cable 6128 664 155, O0 F 
•TransfO 12 volts 120, 00 F 



™«. 2,20 F M..- 



9120 IF TYPE=1 THEN 9500 >fiU 

S5O0 OH CREATION GOSUB 26000,34000. 11000. 5*000,32000, 33 ;AH 

000 

9998 BETURN >HK 

26000 'CREEfi CHAINES AU CUV 1ER >bb 

26010 GOSUfi 60000 >UI 

26017 IF CE = 2 THEN CQSUB 14ÛOÛ:G0T0 26999 >HE 

26020 L=L»1:|F LM2 THEN CLS:PHIHT"TroD de chaînes..."; >UD 

SOUND l,20:FQB TT=0 TO 1000:MEIT n:G0T0 26999 

26025 CLSl PBINT'SAISIE CHAINES AU CLAV l£B" : PKIHT >XB 

26030 INPUfttûibre de segients ";N(D >MW 

26035 PBINT.-PRINT'Aretes virtuelles en début de chaîne. >AP 

, :PRIHT;INPUT"Leur noibre ";AV« :PR JNT: IF AVI=" THEH AV 

(L)=0 ELSE AV(L)^VAL(AUI) 

26040 FOB J=0 TO N(L) >NC 

26050 PBIHT'Point nuKro "jJfH )D€ 

26060 INPUT'IT^iïHL.J) M 

26070 INPUT'YT^iïTa.J) >UN 

26060 IP*PUT'ZT=-;ZT(L.J) )Ufi 

26090 NEIT J )CB 

28100 PIIMT' Une erreur ? , :LC=28:GÛSUB 650 >M 

20:1F C = 15 THEN 26025 

26130 PÏ1NT" Une autre chaîne ?\LC=28:G0SUB 65 )FC 

020: IF C = 15 THEN 26010 

26999 BETURN >PH 

44000 'CALCUL CG ET EE >D0 

44010 GI=0:GY=0:GZ=Û;N:0:8ElK)=0 >BP 

44020 FOR 1=0 TO L: FOB J=U TO NU) >ZD 

44025 H-N41 ;TE 

44030 GI-GïtIT(l,J) )PB 

440*0 GT=GY+YT.(i,Ji ^PF 

«050 GZ'GZtZTU.J) )W 

4*060 MFJT J:NEIT I >NG 

44070 GI(K)=GI/H >U 

44060 GY<K>=GY/N )LC 

44090 GZ<IO=GZ/N )LF 

44100 FOR 1=0 TO L:FOB J=0 Tû K<|} )ZP 

44110 R=SQB t(XTH,JI-GïIK)ltin{l,J)GX!Kl)t(ÏT(l,J)-G >HJ 

Y<K))ilTT(l,J)-GY(K)M(ZTU,J)-GZfKmiZTlU)-GZ(Km 

44120 IF REtKKB THEN BE(K)=B )WJ 

44130 NEIT J:NEIT I >NE 

44999 RETURN >PH 

60000 "TYPE DE SAISIE >0B 

60005 SE=0 >LB 

60O10 CL5 : PBINTuEF IMITIDM TïPE DE bAISIEVPRIHT «A 

60020 PBINT'a Saisie kI*ïHH t«wi Jl-IouO* t% 

60030 PBINT'b-Saisie écran (Contour polygonal planl":GU >JN 

SUB 65Q00:CE=C 

60040 IF CEOÏ THEH CE=l:GOTÛ 60999 ,Bl 

60999 RETURN >PF 

65000 'SAISIE DE CARACTERE jK 

65010 PBINT:PBINT-l/otre choi» r" 

65020 CI-":CIHNKEÏI:IF CM" THEH 65020 

65030 C'ASCfC*) 

65035 IF C=13 OR C= 32 THEH C=27:G0T0 65060 

65040 IF C>96 THEN C=C-96:G0TD 65060 

65050 IF C<96 THEH C=C-64 

65060 SOUND 1,20,5 

65535 RETUfiN 



m 

>FL 



PARTOUT! 







PORTEE 
5KMJ. 




9262 POKE 25000, IdM: POKE 2500 1 . KA : POKE 2SO02,l:P1KE 25 >GÏ 

Q04.198:P0KE 250O5 , 13A : POKE 25009, 0:RETU IN 

B2B3 POKE 2SOO0,U0:Pt)KE 2500 l.fcCfl: POKE 25002,1: POKE 25 >HB 

0M,fcM:POKE 25005, fc3A:BETU8N 

9300 POKE 25000,11: POKE 25001, KDîPOKE 25002, 1j POKE 250 >PW 

04,UB:POKE 25005, 13A: POKE 25003, 0:POKE 25020,0:POKE 25 

010.6:POK£ 16546, UO:POKE 16547, tC6:P0KE 1<647A, 66 : BETUB 

H 

9309 ' ascenseur bas >20 

9310 ad2=i<F6:add2=tCC: GOSUB 9010:G0SUB 9060:RETUU >V¥ 
8319 ' lnnit alv 2 >ZE 
9320 nlv=2:P0KE 25000, tOO: POKE 25001, l«CA:POKE 25002,1:1 >BB 
d2=IM:uld2=U:2:G0SUB 9010:P0KE 2S004 , 1.98 : POKE 25006.13 
A:POKE W5«6,H0:P0KE t6547,tC4:60SUB 9060 : 8ETUEH 

9329 ' piauie niv 3 >ZF 

9330 id2=fcC6:add2=lD2: GOSUB 9010:GOSUB fl061:RETUBH )VC 
8339 ' lnnit nlv 3 )ZG 
9340 nl*=3:P0KE 25000. WO: POKE 25001, tCB: POKE 25002, lia >BQ 
d2450:k(M2=l£fi:COSin 9010:P0KE 25004,(96: POKE 25005,13 
ArPOKE 1.85*6, MO: POKE U547,K1:C0SUB 9080:8ETUBN 

9350 ' pusge asc 3 >ÏK 

8360 POKE 25000, HO: PME 25001. K6:ad2^95:a(W2=lE8:G0S )HÏ 

UB 9010:C0SUB 9061:IETUH 

8370 CMi. 2S5O0:CALL 1.6542:1F PEEK<25011)=1 AND PEEK(2S >BP 

0091=0 THEN G0SU6 9030:B£TUBN:EL5E POKE 25011, OîBETUBN 

9360 Bd=l<36:add=Kl:af=U>6:a3S=t4B:l:2t:h=9:GÛSUB 9020: >KI 

RETUM 

9390 IF d=35 THEN 50UMD 1,50,2. 15:ELSE IF f)100 AND d(3 >J0 
THEN SOUND 2,70.2, 1S:!ETUBN 

9391 8ETUM >GF 
9400 d=d*l: IF d=50 THEN GOSUB 9122:F08 t=5+4 TO 40 STEP >AE 

-8:PL0T t,350,2:PL0T t»6,35û,0:NElT:GOSUB 905O:ELSE IF 

d=52 THEN PLOT 40.350,0:d=0 

94L0 MHlIT f=12Q THEH SOUND 1,1200, 10, 13:S0UND 4.123 m 
0,10,13:FOB t=544 TO 40 STEP -8:PL0T t,314,2:PL0T t+6.3 
U,0:NEIT:GOSU6 9040:ELSE IF 1=122 THEN PLÛT 40,314,0:1 
•MÊME 

9411 BETUU >FJ 

9420 IF PEEK(25020)=B AND (UiM AND PE£K(250021>29 AND >QH 

P£EX<25O02k33 THEH GOSUB 9121:G0SUB 8060:1 U(j=2:id=W 
0:add=tCC:ii=t56:asa=l4B:GÛSi« 9020:BETUBN:ELSE IETUBN 
9450 IF ti>19 AND t»<26 AND ff»I THEN GOSUB 9030:ELSE I >ZE 
F ts>43 AND ts<53 AND (1=1 THEH GOSUB 8030 
8455 RETUBN >GG 

9470 GOSUB 9121: GOSUB 9060:BETUBN )CH 

9480 IF PEEKI25002M68 AND fla(=0 THEN ad=bSO:add=UC:a >T0 
i=*16:in=UB:l=8:h=B:G0SUB 9020:( la|= l:SETUfiH 
9465 BETUBN >GK 

9780 IF PE£K( 25002) =68 AND f U g =0 THEN ad=ftBO;add=aCC:a >ET 
a=llG:iM-UBil=8:h=6:G0SUB 9O20:fU| = l 
8790 As=ll6:ass=t4B:l=8:h=6:G0SUB 8020:fiETUBN >QE 

8600 LOCATE 3,1:PEN 9:PBINT a G A H E - V E B'jLOCATE 5 >BI 
,10:PEN 13:PB1NT*BEJ0UEI 0/N ■ 
9610 ŒAB INPUT:FOB t=0 TO 100:HEiT:M:UrPEBt(INKEïl): >JU 

IF »='D* THEN CLEAB:BUH 3S:ELSE IF d*=*N* THEN MODE 0: 

END: OSE GOTO 8610 




PROGRAMMES 
PUBLIES DANS 
AMSTAR 



AMSTAR N° 1 : 

Musicos, La chaise aux canards, Conex, Tankatack, 
Pousse-Pousse. Canomanie, Réactions en chaîne, 
Casse-briques. Njbbler, Jump, Bouqucî. 
(Programmes du n° I au n S inclus», 

AMSTAR N° 2 : 

Othello, 1914. Pièges. Symlie. Bob riiMréjHdc. Cm-. 
toi, Boulder I. tash. Terraior. Sowd>Wa>, Anii- 
erreurs. [Programmes du a' 9 bu n 16 Inclus}, 



AMSTAR N° 


3: 








Robby - Rock 


- Rebo 


nd Bail -Ma* 


Maste 


Mi 


bald - Pongo 


- Diabolo - Passe-\ 


maille 


A 


(Programmes 


du a* 


7aun°25inc 


us) 






BON DE COMMANDE 




AMSTAR N° 




_l disque Itc 


110F 




AMSTAR N° 




□ disquette 


110F 




AMSTAR N° 




-1 disquette 


110F 




Total génér. 


' [frai 


co de port) 







Date : Signature . ^__ 

Merci d'écrire en majuicules. 

Ci-joiih un chèque libelle a Tordre de : Editions SORACOM 
Reiourncj le bulletin ou une photocopie» : Ediuom SORACOM 
La Huit de Pan - «178 BRUZ. 

' Ne pouvant être tenu pour responsable de l'acheminement des paqutti 
postaux, nous conseillons è noire aimable clientèle de choisir l'envol en 
recommandé. 

Délai minimum d« livralaon : 
15 jour» a réception de la commande. 49 



AVENTURÉ* 5 




ANCIENS 
NUMEROS 

AMSTAR 



•H * > 






-IIMU ■ J 




J t 






3 12, 13. 14, 15 

3 16, 17. 18, 19, 20, 2 

3 22,23,24,25 


16 F (l'unité) 

20 F (l'unité) - 

9»F(flunïM) 




Tntai finirai 


Entourez le (ou les) nu 


Tiéro(s) commandé) s). 
















Merci d'écrire en majuscules. 


Ci-joint un chèque libellé à l'ordre de : Editions SORACOM 
Retournez le(s) bglletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan - 351 70 BRUZ. 


Délai minimum de livraison : 15 jours à réception de le corn- 



it qu'à droite de l'écran, une vue de 
dessus vous permet de surveiller votre équilibre et de 
le rétablir instantanément... Quant à la dernière 
épreuve, elle met en scène une belle cavalière pour 
qui les sauts périlleux se terminant sur la croupe du 
cheval n'ont aucun secret. Il va falloiT attraper une 
balle, sauter dans des cerceaux et, comme il n'y a pas 
de spectacle réussi sans clown, il faut éviter les tartes 
à la crème lancées par le clown et pour 
tuer d'une balle. Triste fin !... 

Ed(Cépar:Tynesoft 

Prix indicatif : Non communiqué 




Si les gr 
sur un superbe fond musical c 
Jr à maîtriser 



4*>lAO 



LA DISQUETTE ARCADES 
+ LE CABLE (nouvelle version)* 



- Kil télachargemem pour Amstrad CPC à 98 F _ 

- Loi da A disquettes vierges à 98 F 

Frais da port 



Prénom : 

Adresse : 

Code postal : 

Ville: 

Date : 



Merci d'écrire en majuscules. 



■Ne peut être vendu séparément 



/raison : 15 jours à réception de la commande. 
Ci-joint un chèque libelle à l'ordre des Editions SORACOM 
Retournez le(s) bulletin(s) ou une photocopie 
. aux Editions SORACOM -La Haie de Pan -351 70 BRUZ . 




rri lierche de 
m-m-rù-K \\1STlf\l<), \T\KI , 
CWMMODWRi;. PGet 
Compatibles. Si vous pense/, avoir 
réalisé un bon programme ou si 
\ous êtes intéressé par le 
déu'loppt'mmmt . contactez : 



ESAT SOFTWARE 

57 RUE DU TONDU 

33000 BORDEAUX 

TEL 56 96 35 23 



C0'ESSAILO( 



SDI 



nucléaires, je finis par me demander ce qu'il reste de i 

"" e à moins que vous ne soyez tous des super 
du joystick F Je préfère opter i 




a^aes 



" ■ il r i . > ' i'i . > '. "■û i cssps 



Trnri' i i i i 



menl défensive durant laquelle v._. 

' ? d'atteindre la planète... Dus facile à d 




MJ&Btfif 



CPC 




Bob morane océans i 



^ Revoilàlehérosromanesquequiadéja 
^ subi plusieurs adaptations logicielles. 
Cet épisode semble être le premier d'une 
série maritime puisqu'un numéro 1 orne 
le titre. L'Ombre Jaune et ses fidèles Da- 
coïts ont décidé de construire une série 
de bases sous— marines à usage maléfique. 
En effet, les bases sont des usines auto- 
matiques produisant des robots tueurs. 
Un écran de contrôle installé à bord du 
sous-marin permet de suivre la progres- 
sion de r»cpidcmie». Toujours sur cet 
écran, il est possible de déplacer une flè- 
che représentant le bâtiment de notre 
héros. Lorsque le déplacement est vali- 
dé, une phase d'arcade commence : vous 
devez conduire le sous-marin à travers 
une série de petits rochers. A 
chaque contact, le niveau 
d'énergie diminue. Vous 
devez donc être 



vigilant. De plus, il est possible d'accélé- 
rer le processus à vos risques et périls 
puisque les rochers deviennent alors très 
difficiles à éviter. Cette partie est plus ou 
moins longue suivant la distance à par- 
courir. Une fois arrivé à votre destination, 
de préférence sur une connexion entre ba- 
ses, vous pourrez disposer une bombe 
grâce à une petite plongée dans les eaux 
limpides et bleues. Tout serait plutôt 
simple s'il n'y avait pas de requin. Votre 
rayon laser en viendra à bout, à condi- 
tion de viser correctement. Une fois la 
bombe déposée, le retour au sous-marin 
est automatique. Maintenant, il est pré- 
férable de s'éloigner rapidement avant de 
percevoir les effets de la déflagration. Le 
compte à rebours est défini par vos soins : 
s'il est court, vous pourrez agir rapide- 
ment mais vous prenez le risque d'être 
encore sur place quand la bombe ex- 
plosera. Si vous tombez dans l'ex- 
cès contraire, les connexions 
pourront se reproduire 
ailleurs et vous aurez donc 
deux fois plus de travail. 
Un délai de 10 s 



semble être suffisant pour réussir. De 
temps à autre des patrouilles de Dacoïts, 
symbolisées par des carrés rouges, se dé- 
placent vers vous. Il suffit de leur envoyer 
un leurre pour qu'ils se précipitent des- 
sus. Ce leurre n'est pas éternel et il vaut 
mieux en profiter pour semer le maximum 
de destruction. 

La rencontre avec une patrouille se passe 
de la manière suivante: un vaisseau 
Dacoït vous tire dessus, vous tâchez de 
riposter et de le détruire. A chaque coup 
reçu, votre niveau d'énergie baisse. Le 
vaisseau détruit est remplacé par un au- 
tre et ainsi de suite jusqu'à concurrence 
de 4. Mais normalement, en agissant as- 
sez rapidement, vous n'aurez même pas 
le temps d'attaquer ou de vous faire at- 
taquer par une patrouille, La technique 
à employer est celle du raid : on ne s'at- 
taque pas à plus de deux connexions à la 
fois et l'on rentre tout de suite à la base 
pour se ravitailler en oxygène et en éner- 
gie. 



Edi, 





Ce nouvel épisode de la saga est nettement supérieur aux 
précédents : variété de l'action, stratégie, graphismes meilleurs. 
II semblerait que l'originalité soit au rendez-vous. Alors tout 
bon Bob Morane Océans ? Pas tout à fait, je regrette une seule 
chose, le jeu semble trop facile. En effet, commencé à 18h15, 
à 18h25 exactement j'avais réussi la mission : 100 % de ba- 
ses ennemies détruites et % de bases amies attaquées. Alors ? 
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AMSTAR & CPC 26 : Bancs d'essais logiciels - Catalogue détourné - Listings en binaire - Trameur - Traitement de l'image 
- Solution : Crash Garett - Ça ne marche pas - List - Vidéo - Amslettres - Reportage : Cobra Soft. 

AMSTAR 8. CPC 17 : Mettez un peu d'animation - Vidéo - Amslettres - Solution : Conspiration - Le retour des fanzines - 
Editeur de jaquettes - Bancs d'essais logiciels. 

AMSTAR & CPC 28 : Technique des masques - List - Traitement de l'image - Vidéo - Architecture et composition des RSX - 
Plan : Jack the Nipper 2 - Bancs d'essais logiciels - Listing : Xénon. 

AMSTAR & CPC 29 : Vidéo - Xénon - La revonche du retour des fanzines - Pion : Sky Hunier - Dossier éducatifs - A lo dé- 
couverte du clavier - Fractal Landscape. 

AMSTAR & CPC 30 : Vidéo - Téléchargement - Alomic Satellit - CAO 3D - Solution : A320 - A la découverte du clavier - 
Trucages de codes BASIC - Anolysons les fichiers - Boncs d'essais logiciels. 
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1 disquette contient les programmes de deux numéros consécutifs d'AMSTAR & CPC. 

N° 20 : AMSTAR & CPC 26 et 27 - N" 2 1 : AMSTAR & CPC 28 et 29 - N° 22 : AMSTAR & CPC 30 et 3 1 



AMSTAR 4 CPC 

3n°26.27.28.29.30_ . 25 F (l'unité) 
Entourez le ou les numéros choisis. 
Total franco port en sus 10 % pour envols par avion 
Nom : 



Disquette 

D n° 20. 21 . 22 abonné 

non abonné 



_110F(l'unitè) - 
- 140 F (l'unité) - 



Code postal : 
Date : 



Merci décrire en majuscules Ci-Joint un chèque libellé a l'ordre des Editions SOIÎACOM. 
Retournez le(s) bulletln(s) ou une photocopie a Editions SORACOM - La Haie de Pan - 351 70 BRUZ 



Délai minimum de livraison : 15 jours à réception de la commande. 






<£ 



5470 DATA 467,200.3,461,206.2,0,0.0 ), 

5480 DATA 470,271, 3.488,283, 2,504, 263,1. 522,244,2,536.2 >\ 

30,2,522,215.2.500,236.1.489,247,2,470.271,0,0,0.0 

5490 DATA 373,296,1.385,273,1.393,261,1.417.241,1,0,0,0 >i 

,303, 261, 0.377,239.1, 0,0,0 

5500 DATA 392,366,1,376,351,1,371.336,1,0,0.0 )l 

5510 DATA 320,314.1,316,332,1,264,326,1.0,0,0 > 

5520 DATA 211,343,2,189,330,1,1,0,0 > 

5530 GOSUB 15000 > 

5532 GOSUB 15100 ; 

5535 RESTOBE S3S0:G0SUfi 16000 > 

5540 FOR 1=1 TO IBtBEÀD a.b.noiliLuCATE a.btPRlNT noil: > 

KIT 1 

5550 DATA 10, 17,Lib.ll,10.Boo,22,12,iir,22, l7.Ov,30,iJ > 

,Cft,37,18,Hya,21,e,CM.26,S,Cïn,35,ll,Leû,36.4,Lf1i,43, 

3,Lrn,51,8,Cnc 1 J6,U,Sei,47.19,Pup,55,18,i:Ha,7l,18,Ûn. 

5e,U,CHi,64,6.Gei 

5560 GOSUB 15iOO:EETUEM ) 

5600 ' ETE NOM > 

5610 e=160:BEST0HE 5650 ) 

5620 GOSUB 8900 ) 

5630 LOCATE S.kPfiiNrCQNSTELLATlONS ET ETOILES VISIBLE ) 

S DAHS LE CIEL D'ETE A NOS LATITUDES" 

5640 LOCATE 1,20:PBINT'0":LOCATE BO^OtPBINT'EMJKATE ; 

34,21:PRIKT"vers le Nord' 

5650 DATA 87,115.1,71.121,1,75,143,3.85,158,1,86,170,2, ] 

98,177,1,104,170,1,104,158,2,0,0,0,44,200,0,50,190,2,75 

,143,0,0,0,0,53,215.0,74,195,2,86,170,0,0,0,0 

5660 DATA 127,80,0,116,99,1,125,112,1,129,134,1,0,0,0,1 ! 



16,99.0,101,94.1,0,0,0 

5670 DATA 170,80,0,156,99,3,177,110,2,188,96,1,200,80,0 >CB 

,0,0.0 

5680 DATA 224,80.0,230.96,1,235.111,1.254,114,3,266,111 )UE 

,1,263,100,1,272.96,1.278,80,0,0,0,0 

5690 DATA 140,150,1,152,169.1,176,170,1,202.161,1.237,1 )11 

61,1,266,170,1,266,166,1,0,0,0 

5700 DATA 125,212,1,132.231.1,119,241,1.0.0.0 MU 

5710 DATA 145.312,1.161,298.3,0.0.0 ;AU 

5720 DATA 221, 338.3,<:31, 321. 3. 227,303, 3. 224,287. 3.228.2 >ZQ 

60,3.206,260.3.203,284.3.224,267,0,0.0,0 

5730 DATA 320.252.3,329,265,1.326,278.1.316,287,1.302.2 )AC 

93,3.311,305,2,322,297,1,316,267,0,0,0.0 

5740 DATA 266,288,1,275.293,1,281.322,1,319,350,1,354.3 >TD 

52,2,365,332,2,350,305,1,360,302,2,395,329,1,404,344,3, 

392,350,2,386,338.1,395,329,0,0,0,0 

5750 DATA 320,80,0,322,108,2,342,118,3,351,135,2.356,14 >EK 

7,1,0,0,0,342,118,0,359,89,2.362,80,0.0,0.0 

5760 DATA 317,215,1,330,199.1,344.174,1.323,161,1,314,1 >W 

82,1,330,199.0,0,0,0 

5770 DATA 364,182,3,385,175,3.386,194,3,404,182,3,407,2 >HF 

02.3,0,0,0 

5780 DATA 416.224,1,418,236,1,408,258,2,365,255,2.356,2 >KU 

42,2,394,231,1.418,236,0,0,0,0 

5790 DATA 473.252,3,467,265,2,506,284,1,518,296,2,0,0,0 >UK 

,473,284,2.487.265,0,503,248.2.0,0,0 

5800 DATA 399,108.3,440.105,3,467,105,1,488.105,3,0,0,0 >UH 

,440,105,0,439,116,1,437,129,1,0,0,0 

5610 DATA 464,215,1,467,203,1,482,202,1,498,199,1,0,0,0 >UA 



OFFRE EXCEPTIONNELLE : 4 CASSETTES POUR 100 F !* 

Une cassette com pre nd les jeu x, édu catifs ou utilitair es qui ont ét é publié s dans le numéro CPC cor respondant 



^\ 



3 : Char d'assaul - Consommation de carburant - Fonction circle 

4 : Redef'caf - Carré magique - Lexique anglais/français - Maze 

5 : Cherry Paint - Morpions - Mouline*. - Jeu de ta Vie - Utilitaires de re- 
copie d'écran - Machpoke 

6 : Cherry Paint - Amstus - Traceur de graphique - Tralalgar 

7 : Cherry Paint - Dtscut - Conjugaison - Calcul - CokStz - Double hauteur 
Référence croisée des variables basic 

I : Cherry Paint - Tokefl - Numérobgie - Discothèque 
9 : Cherry Paint - Creedata - Serpent Madness 

I : Cherry Paint - Catalogue Disk Printer - Analyse - Mundial 86 - Arbre 
généalogique 

I I : Ciel - Cherry Paint - Casse-téte de l'âne - Medor - MuHi fichier. 

1 2 : Cherry Paint - Mozart - Louisiane - Prol dise - Et* disk. 

13 : Localisation des planètes - Cherry Paint - Courbes - Extensions ba- 
sic et sprile-Edimusic. 

1 5 : Cherry Paint - Gemaine - Moniteur de disquette - Boîte à rythmes. 

1 6 : Poker patience - Attentif - Menu 2+. 



20 : Relief -Vision -Tri pour Bankmanager- Cal disk -Poker 

21 : Monnaie-Oxyoo-Demo-lris-StradamLJse-Dis -Cas- Charge- 
ment des R5X Bankopen. Bankread. Bankwrïe, Bankfind 

22 : Tournoi de fléchettes- Emulateur minitel -Technique des mas- 
ques - Recherche documentaire - Anti-erreurs - Histoire 

23 : Anti-erreurs - CAO 3D - 30 snakes - Photo-sprite - Relief - Moniteur 
24: CAO 3D- Anti-erreurs- 1000 Bornes- Justification -Twenty 
Copy - Trames et collages - Graphofrance - Machines 

25: CAO 3D- Amsrytrtm- Trois dés - Générateur de menus- Symé- 
trie - Générateur de spnles (1 ) - Penelror. 
26; CAO 3D - Anti-erreurs - Catalogue - Conjugue - Tchernm 
land - Fenêtres symétriques - Graphiques 

27 : Création et animalion de sprites - Anti-erreurs - CAO 3D - Champion- 
nat -Actions. 

28 : Anti-erreurs II - Routines machines - CAO 3D - Fichiers - Générateur 
de sprites -Catprog, 

29: Les fichiers - Anti-erreurs 2- Astronomie planétaire -CAO 
3D - Catprog - Pentoniinos. 



Je commande lots(s) de 4 cassettes à 100 F le lot 

Numéros des cassettes souhaitées : 



Nom : 



Prénom : 



ne des cassettes était épuisée, je désire à la place 
la cassette n' 




Signature : 



SORACOM à 
Pan- 35170 BRUZ. 



* Dans la limite des stocks deponibles 

"Ne pouvant ftïe tenu pour responsable de r acheminement des paquets postai», nous conseillons à notre aimable clientèle ce choisir renvoi w 
V D * 1 * 1 mii^mm» dâ> livraison - ISjourt a réception 0» /a commind* 



, 480,291,0,485,306,1. 477.320. 1.0,0.0 

7430 DATA 517,209,2,559,185,2,575,224,2,582,218,1.586.2 >UH 

09,1,0,0.0,559,185,0,551,156,1.584,152.1.614.146.0.0,0. 

0,584,152,0,596.139,2,814,134,0,1,0.0 

7440 GOSUB 15000 )DH 

7450 GOSUB 15100 >DK 

7460 RESTORE 7250:G05UB 16000 )IZ 

7470 FOR 1=1 TO IB:HEAD a, b.noai: LOCATE a,b:PRINT noal: ,GZ 

MEIT 1 

7480 DATA 10, 18,Hya,8, 15,Cnc, 18, U.Cfli, 18. 1 f.CMa, là, EU ;Bï 

ei,33 l 12,0rl,32,19,Lep,36,16,ErL,35,10,Tau,24,5,Aur,40, 

3,Pef.52,18,Cet,S9,19,Scu.5O.B.Ari,50.6.Tri.S3.4,And.64 

,16,p5C,67,12,Pe| 

7490 GOSUB 15100:RETURH >TV 

8900 'AFFICHAGE DOUTE CELESTE >¥K 

8910 CLS:H0DE 2 )BJ 

8920 FOR 1=20 TO 620:PLÛT L,80:MEIT i )I*L 

6930 FOR 1=0 TD PI STEP 0.0O5 >YD 

8940 PLOT 32Q*300tCOSU),80*300iSINli):NEÏT i >IK 

8950 RETURH >GF 

9000 'CHOU D'UNE CONSTELLATION >ÏB 

9010 CLS:nOO£ 2 >BA 

9020 RESTORE 9000 >LV 

9021 FOR i=0 TO 639:PL0T i,0:PLOT i,38:PL0T i,372:NEIT >ZH 
i 

9022 FOR 1=0 TO 372:PLOT 0,i:PLOT 639.i:NEÏT >MA 

9023 FOR 1=38 TO 372:PL0T 310, i:H£IT i >EZ 
9030 LOCATE 13, 1:PRINT*C0NSTELUTI0NS DE L'EfllSPKERE BO )UH 
REAL ET EQUATOBIALES" 



# 



9O40 FOR 1 = 1 TO 20: READ noal.abrl:LOCATE 2.2M:PRWT i )GC 
: LOCATE 6.2+i :PRINT ik»*:LOCATE 35,2+l:PRINT abrl:NEXT 

i 
9050 FDfi i=21 TD 39:REA0 noal ,abrt: LOCATE 40,Î-18:PRINT )RB 

i: LOCATE 44, 1-1B.-PRIHT noat:LOCATE 76. 1-18:PRIHT abri: 
KIT i 

9100 DATA L'Aille. Aql.Androalde, And, U Baleine. Cet, Lé B >RB 
eller.Arl.Le Bouvier, Boo, Le Cancer, Cnc.CassIople. Cas, Cl 
phle.Cep.Leg Chiens de Chasse ,CVn, Le Cocher, Aur, La Cour 
orme Barlale.CrB.Le Cyine.Cyg.Le Dauphin, Del 
9110 DATA Le Dragon, Dra, La FNche.Sie.Les Glaeaui.Gea.L M 
a Girafe, Caa.La Grande Ourse, Wla.Hercule.Hei, L'Hydre Fe 
■elle.Hya.Le LIzard.Lac.La Licorne, Hon.Le Lion, Léo. Le L 
yni.Lyn.U Lyre,Lyr,Ûphiuchu9,0ph 

9120 DATA Drion.Ori.Pliase.Pei.Persle.Per.U Petit Chev >VU 
al.Equ.Le Petit Chien.Crli.Lc Fetit Lion.Lni.La Petite 
urse.Ufli.Les Poissons, Psc, Le Seitant.Sei.Le Taureau, Tau 
, La Tête du Serpent, Ser, Le Triangle, Tri, La Vierte,Vir 
9170 LOCATE 10,24: INPOT'Taper le NI de la constellation )UH 

choisie (0 retour au KEHU) a ;cholx 

9180 IF cholïtû OR choliHO THEH GÛTO 9170 )JA 

9190 IF choU=0 THEH RETURN )UH 

9200 ON choit GOSUB 10000,10100,10200,10300,10400,10500 ;JC 
. 10600.10700, 10800, 10900, 11000, 11100, 11200, 11300. 11400, 
11500,11600,11700,11800,11900,12000.12100,12200.12300,1 
2400. 12500, 12600, 12700, 12800, 12900, 13000, 13100, 13200, 13 
300. 13400. 13500. 13600, 13700, 13800 

9300 GOTO 9000 >HJ 

10000 ' AIGLE >CG 




NOUVEAU : ECHANGEZ VOS JEUX 



SANS PAYER U 



ENCORE MIEUX, ENCORE PLUS ECONOMIQUE, POUR ECHAN- 
GER VOS JEUX SANS PAVER UN CENTIME, PROCÉDEZ DE LA 
FAÇON SUIVANTE : 

- fades, colonne de gauche, la liste des jeux que vous souhaitez 
échanger (d'origine et complets), 

- puis faites, colonne de droite, la sélection des jeux que tous 
voulez recevoir en échange, 

- postez votre bon à l'adresse ci-dessous 

Après évaluation, nous vous communiquerons la liste des jeux 
que vous recevrez en échange des jeux que nous vous repren- 
drons. 

Si l'échange vous convient, vous enverrez alors vos jeux et rece- 
vrez sous 43 heures les /eux commandés. 
Retournez vite voire bon à BOOMERANG - B-P. 585 - 74054 
ANNECY CEDEX. 

NOM: 

Adresse : _ 

Code postal Ville: 

2 BOUTIQUES BOOMERANG 
POUR ÉCHANGER VOS JEUX SUR PLACE : 
ANNECY GRENOBLE 

BOOMERANG N 1 10 DISTRIBUTION 

8t. chemin du Périmètre ZA VOREPPE-MOIRANS 
50.27.6312 76.56.6348 



FAITES CI-DESSOUS LA LISTE 
DES JEUX QUE VOUS SOUHAITEZ 
ECHANGER. 



N CENTIME!!! 



FAITES CI-DESSOUS LA LISTE 
DES JEUX QUE VOUS SOUHAITEZ 
RECEVOIR. 



lion de commande 



ANCIENS NUMEROS CPC ET HORS-SERIE 

Attention, n 1 à 9, 12,14,15, 17, 21, 22 et HS1, 2, 3 et 5 épuls 

•CPC 



w 

Don Jean\ 



Un récapitulatif des articles et des programmes publiés se trouve 
dans le n" 19 pour les CPC n" 1 6 17 et dans la n° 30 pour les 
CPC h* 18 à 29. 



CPC n° 30 " Les caractères de contrôle - Astronomie planétaire - 
Branchez le Turbo - AnC -erreurs 2 - Traceur d'oscillogramme s - Sauve- 
garde et impression d'écrans sur Minitel - Jeu de dames - CAO 3D - 

ation à CP/M. 
CPC n" 31 : Amstrad à l'école - La programmation du joystick - Bran- 

z le Turbo - Création et animation de sprites - Tout sur les fi- 

irs - Pluriel des noms - CAO 3D ■ Statistiques ■ Trans-pen. 
CPC n° 32 : Représentations graphiques en X-Y - Missive - CAO 3D 

iitement de l'image - Billard américain - Branchez le Turbo - Création 

nimation de sprites. 
CPC n° 33 ; L'art de mémoriser les variables - Missive - Traitement 

l'image - Billard américain - Introduction à GSX - Animation et 
gestion de sprites - Tout sur les fichiers - CAO sur CPC 
CPCn°34 : Notions en mémoire - Traitement de l'image -Présidentielles 

- CAO 3D - Introduction à GSX - Tout sur les fichiers - Animation et 
gestion de sprites - Oil Panic 

CPC n°35 : Du 464 au 6128 - 5" 1/4 j'en veux - Traitement de l'image 

- CAO 3D - Rolling Stones - Mélange des couleurs - Conversion 
ASCII binaire - moniteur de disquettes. 

CPC n° 36 . Faites-vous bonne impression ? - Traitement de l'image 

- Banderole - CP/M + sur 464 - Medor - Accélérateur - Satellite - 
CAO 3D - Renumérotation des programmes binaires - Compilation 
BASIC/binaire - Amslettres. 

CPC n° 37 ■ Catalogue détourné - Antalex - Téléchargement - Vidéo 

- Amslettres - Traitement de l'image - DAMS et CP/M ■ Anti-erreurs - 
Zoomer - CAO 3D - Trameur - Sprinter. 

CPC n 3 38 : Dossier : les fanzmes - Perestroïka - Traitement de 
l'image - Digison ■ CAO 3D 

DISQUETTES 
•CPC 

1 disquette co 
n°1 :CPC 1 e 
n" 2: CPC 3 e 
n°3 :CPC 5 e 
n" 4. CPC 7 e 
n" 5: CPC 9 e 
n°6:CPC 11 
n°7:CPC 13 



!S programmes de 2 n Q consécutifs de CPC 



i"8CPC 1 
)°9:CPC 17et 13 
)°10-CPC 19et20 
r 11 CPC 21 et 22 
i° 12 :CPC 23 et 24 
>° 13 : CPC 25 et 26 



'14 :CPC2 
'15: CPC 2 
'16: CPC 3 
'17: CPC 3 
'18: CPC 3 
'19 "CPC 3 



lent les programmes du numéro 



Les disquettes Hors-Série 

correspondant 

HS 2 : Runaway - Case Brique - Dollars S Snaff - ABC - Lectheme - 

Multiply - Refont 2 - Scribe - Masque de saisie 

HS 3 : Les chiffres et les lettres - Windows - La momie invisible - 

Participes - Sectory + - Fer forgé ■ Géométrie - Etats-Unis 

4 ; Edit 2 - France rivière - Boisson assistée par ordinateur - His- 
3 de France - Gaston - Mini Mac - Opération Oméga 



Montant total de 



NOM 

Adresse _ . 
Code postal : 
Date : _ . 



HS 7 


Ami 


HSS 


Ant! 


HS 9 : Anti- 



HS 5 ; Anti-erreurs - Cendrillon - Squelette - Super Di 

et Dr Agon - Machine à écrire - Ghost - Mémoire. 

HS 6 : Flipper - Calcul Mental - Auto-choc - Jaquette - Drapeaux S 
Nuclear - Biorythmes 

iurs - Dominos - Départ Oie - Trait-Stat - Alca - Im- 
/eloppe - Auto dictée - Manoir Maudit. 
urs - Musiques - Mots croisés - Reliefs Mathémati- 
■sistor - Division - Le petit train - Magnetic - Pousse- 

urs - Turbo Clavier - The Intruder - Surface - Le cer- 
veau - Blue-Cards - Coulmélo. 

HS 10 : Agenda - Titreur - Skyhawk - Packy - Volumes - Musica 
HS 11 : Ulcinor - Mots Codes - Puzzle - Centipède - Gestion Auto- 
mobile - Chimie. 
HS12 ; Amsboggle - Energix - Latin - Mission - Problèmes - Regis- 

• ANCIENS NUMEROS CPC 

Jn' 10, 11. 13, 16, 18, 19,20, 23. 24, 25, 26, 
27,28,29.30,31,32.33,34,35,36,37,38 25 F 

■ HORS-SERIE 

3n°2 13 F 

□ n-S. 4,5,6,8, 9, 10, 11, 12 15F 

• DISQUETTES 

□ n°1,2, 3, 4,5, 6,7, 8, 9, 10, 11,12, 13, 14, 15, 16, 17, 18, 19. 
HS1.HS2, H3. HS4, HS5, HS6.HS7. HS8,HS9, HS10, HS11.HS12 

Q abonné 110 F Il non abonné 140 F 

□ abonnement disquettes (6) 600 F 



□ Compilation n" 1 (CPC n" 1 â 4) 
ij Compilation n" 2 (CPC n" 5 à 8) 



□ Programmes utilitaires sur Amstrad (Nelle édition) 110 F 

i édition) 



IJ Jouez avec Amstrad-Kerloch 

□ L'univers du PCW - Patrick Léon 

Disquettes 

□ L'univers du PCW - Patrick Léon 

□ Communiquez avec Amstrad 
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TRUCS & 
ASTUCES 

Pierre TACONNET 



PEAUFINAGES 




Le programme 
AGENDA de Thierry 
BALINT, CPC Hors- Série N° 10, se voit 
apporter par Dominique MERRIEN de 
Gouezec quelques modifications utl- 



Lors du CHAIN de la ligne 580, le mes- 
sage «Press Play and Any Key» appa- 
raît en décalant le tracé sur l'écran 
d'une ligne. Apparaît alors «Loadlng 
AGENDA1 .BAS Block 1 » qui décale une 
nouvelle fois le tracé d'une ligne vers 
le haut. Le chargement effectué, le 
résultat n'est pas brillant I 

Voici le remède ad hoc et élémen- 
taire ! 

580 CLEAR:CLS #3:CHAIN - I 
AGENDA1.BASV70 

Il suffit alors de sauvegarder le pro- 
gramme par ; 

SAVE-IAGENDA.BAS" 
et le tour est Joué. 

D'un puriste anonyme cette modifi- 
cation de bon alol à apporter au pro- 
gramme de l'ami Claude LE MOUL- 
LEC ROLUNG2. 

4560 IF vle>] THEN PEN HOCATE 
1 ,1 :PRINT - ONE PLAYER MEN 'lOCATE 
18,1 :PRINT VIE:RETURN ELSE PEN 
1 iOCATE 1 ,1 :PRIIsrrONE PLAYER MAN 
VLOCATE 18,1:PRINTVIE:RETURN 

Oue les choses sont belles lorsqu'el- 
les sont Justes ! 



Il peut être utile de sup- 
primer tous les es- 
paces Inutiles dans un programme , no- 
tamment après PRINT, INPUT, après les 
commandes graphiques et en fin de 
ligne. Rémi VILLATEL de Villequier nous 
Indique le POKE à employer. 

Avant de commencer la saisie, entrez 
en mode direct : POKE &acOO,l et le 
tour est joué. 

Une astuce, maintenant, pour falrejoll 
pendant le chargement d'une image 
d'écran. Entrez 1 



Après avoir fait RUN. il suffit de char- 
ger votre Image d'écran par : 
CALL 8<a000.40:LOAD "nomimage 
XXX":CALL8;a0O0,&ca 

La routine est relogeable n'Importe où 
sauf entre 8:4000 et &8000. SI vous ne 
voulez pas subir de problèmes à 
l'écran après cette petite opération, 
évitez de le faire défiler. 

Mettre un turbo à votre lecteur de dis- 
quettes, çâ vous intéresse ? Entrez 2 

Et c'est ainsi que l'on charge un fichier 
binaire de 17 Ko en. ..3 secondes! 




M 



anuel FERNANDE 
de Nantes pos- 
sède un 464 Schneider et regrette l'ab- 
sence de CHAIN sur son micro-ordi- 
nateur, notamment avec le pro- 
gramme géant de Jean-Pierre PETIT 
sur la CAO 3D. 

Il a pourtant trouvé une solution satis- 
faisante. Il commence le programme 
en «MOD 1 » comme suit : 

Avec ces modifications, la com- 
mande CHAIN fonctionne, les don- 
nées DIM sont conservées lors du chaî- 
nage. 



TURBO SEMWORD 



Lors de la correction 
d'un texte sur un lo- 
giciel de traitement de texte, l'utilisa- 
teur est heureux de pouvoir accélé- 
rer la vitesse de déplacement du cur- 
seur. Malheureusement. Semword 
n'offre pas de paramétrage de la vi- 
tesse du curseur. 

C'est pourquoi Jean-Pierre MARQUET 
de Bouaké en Côte d'Ivoire qui est 
décidément une bonne âme, vous 
offre Ici ses conseils de mise en œuvre. 

Tout d'abord. Il ne sert à rien d'Intro- 
duire une commande SPEED KEY dans 
le lanceur BASIC du programme, la 
partie en langage machine de ce- 
lui-ci réinitialiserait tout. 

En revanche, si vous chargiez Sem- 
word, que vous alliez au menu, que 
par l'option B vous retourniez ou BA- 
SIC, que vous «pokiez» en &36fc la 
valeur désirée pour le premier para- 
mètre (l'auteur prend 8) et que vous 
faisiez RUN. vous bénéficieriez des 
avantages de ce curseur rapide qui 
facilite tant la correction. 

Si vous ne voulez pas avoir à effec- 
tuer ces opérations à chaque correc- 
tion de texte, sauvez Semword mo- 
difié par la commande T. 




SECURITE INPUT (suite) 



Le programme SE- 
CURITE INPUT de 
CPC N° 1 9 page 53 laissait passer quel- 
ques erreurs. Philippe PARFONDRY de 
Charleroi, en Belgique, nous envole 
ce petit programme plus performant. 



Nous ne remercions pas tout de suite 
Philippe car II nous offre la bidouille 
qui suit. En prime, sans doute I 



■ :•■:•:.' f";Mi 




3 UNITES SUR 464 



Pour travailler sous 
CP/M sur des dis- 
quettes 5" 1 /4. pat exemple, voici une 
adaptation des bidouilles des CPC 1 9 
et 31 pour 464. Est-Il besoin de rap- 
peler aux lecteurs qui n'ont pas de 
bonnes connaissances en électroni- 
que qu'il est préférable que. dans le 
doute, ils s'abstiennent ? 

Si l'on veut que tout ce matériel fonc- 
tionne. Il nous faut tout d'abord voir 
du côté de l'alimentation (Flg 1). 

Opérations sur les fils en nappe venant 
de l'unité 3' (Flg 2, 3. 4): 

1 - sur le connecteur de l'unité A (celui 
du bout de la nappe) débrancher le 
fil N° 25 et le laisser en l'air. 
Débrancher également le fil N° 24 et 
le brancher à la place du fil N° 25. 

2 - sur le connecteur de l'unité B. cou- 
per le fil N° 24 avant le connecteur 
(entre l'Interface et le connecteur B). 

Pour les connecteurs, maintenant, 
exécutez les connexions suivant les 
figures qui suivent (Flg 5, 6). Connec- 
tez un connecteur mâle (sur le con- 
necteur femelle de l'unité B) avec 2 
connecteurs pour unité de 5"l/4 en 
prenant soin de séparer de la nappe 
les fils N° 23. 24 et 25 du connecteur 
mâle (B) et des fils N" 10 des connec- 
teurs 5" 1/4. 

Si vous avez bien suivi les différentes 
opérations, votre principal problème 
sera, maintenant, de trouver suffisam- 
ment de place sur votre table de tra- 
vail pour installer tout ce matériel I Un 
grand merci de la part des utilisateurs 
de CPC 464 à Philippe PARFONDRY 
dont le nom restera désormais gravé 
dans la mémoire. 





CATALOGUE 




Offre valable 
jusqu'au 30/04/89 



Boîte Data Case 

avec serrure 

+ 

10 disquettes 

3 pouces 



310F 



+ 25 F 

forfait 

port et emballage 



Du lycéen à l'Ingénieur : 

Ce logiciel permet l'étude de fonctions, de suites numériques, 
et la résolution d'équations, 
Quelques options disponibles : 

• Etude de toutes les fonctions à 2, 3 et 4 variables. 

• Etude de suites arithmétiques, géométriques ou définies 
par une expression, 

• Résolution d'équations trlgonométrlques sur le cercle. 

• Possibilité de tracer dans 2 modes graphiques, et dans 
un repère quelconque, avec une échelle variable. 

• Variations, calcul des maximums et minimums, et des points 
d Intersection aux axes de la fonction. 

• Calcul de dérivées, d'Intégrales. 

• Tracé de tangentes, tracé et étude des fonctions réci- 
proques. 

• Courbes en coordonnées polaires. 

• Sauvegarde et Impression des graphiques r 



Disponible sur disquette 3' pour CPC 464, 664 et 6128, 
au prix de : 230 F 
Réf.: BEP001 



MULTICOURBES 

de Sylvain VIEUJOT 
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10 10COMMAND PERFORMANCE 


DT7I74 


3MF 


INTERNATIONAL KARATE 


CT7I» 


BCF 


PETER BEAftSLEY 


DT720C 


16SF 








LE LIVRE DE LA JUNGLE 




















D'JXS 










AFTERBUHNER 


0T7-39 


mr 


LES AVENTURIERS 


mm> 


20 F 


H^JrNOFTHEJEDI 


~o'-ii 


ml 








LES FUTURISTES 












CLASSIQUES 1 


E 


S£i 


MANOIR MOFTTEVILLE 
MOTOR MASSACRE 




^F 


SKYHUNTER 

T1GERRCAD 




"r 
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OPERATION WOL F 


















PAC MANIA 


DT71SO 










HEROESOF THE LANCE 


DTim 


Z30F 


PACK (OFF SHORE t GALACTIC • F1REI 


DT7!S? 


MO F 


WECLEMANS 
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hi le royaume de BELDA. Une légende raconte que quatre 

1 elfe, un guerrière! un saltimbanque viendront un jourappor- 



de tous les temps ! Venez délivrer LIBRAE et entrez 




BON DE COMMANDE 



à adressera : BRETAGNE EDIT' PRESSE 
LaHaiedePan-35l70BRUZ 
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Forfait port 1 F par logiciel 
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lent des paquets posl 

Je joins mon règlement chèque bancaire 3 chèque postal . 



noui comeillom à notre aimable clientèle de thoiti 

mandat Zi Carte Bleue J 

IMPERATIF 

Si vouschoisissez le paiement 

par Carte Bleue, n'oubliez pas d'indiquer 

ainsi que votre signature 



N Carte Bleue 



Date limite de validité 



~v~n 






ETITES 
NNONCES 



réservée aux petites annonces est limitée. En ce 
. Par contre, les petites annonces farfelues sont s 1 
probable qu'il existe des "généreux dortatei 
. faisant appel a ces priilantropes ne seront ir 
fusées toutes les annonces visant à vendre ou é 



En ci 
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ment rejetées... De 
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si la place libre le 
s listes ou copies d 
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els non 


au piratage. 






textes. Les petites annor 




e ou photocopiée) 


le texte étant 



Vends 1000 jeux et utilitaires. Dites celui que 
vous désirez avec paiement PV 45 F THIERY 
Laurent - Route de Metz - 55210 
VIGNEULLES 

Vends Amstrad CPC 464 mono * 70 jeux dont 
30 ou plus en cadeaux, le tout neuf 2500 F 
ou moins + nb. cadeaux Tél. 56.76.86.52 - 
David SANTOS 

Vends CPC 464 couleur + synthé vocal » 
nombreux jeux et utilitaires * documentation 
et livres : 2500 F. Tel 51 32 74.99 

Vends 61 28 coul * 250 dises pleins » revues 
(100) *■ livres (20) + doubleur joystick + 
contacts, cause service militaire Tel : 
20.47.58 32 Samuel. 



Vends CPC 6128 coul , 60 dises. 300 jeux, 
nbx util., nbx revues adapt péri tel, le tout très 
bon état 4000 F + TV NSB . 500 F. LMJRENT 
Tél. 45 77 91 93 

Vends CPC 464 mono + 30 jeux ; DT 
Conspiration, La Chose, Joystick en prime, 
le tout :1300 F. Tel : 48.8392 80après 19h00, 
demander Grégoire - La Varenne 94210 

Vends 464 couleur, excellent état + K7 
originales + joystick : 2500 F. valeur : 3800 F. 
Tél. : 97.55.16.38. parfait pour cadeau noël 

Cherche documents sur Masterfile 464 vers 
1.4 par Campbell Software. Ecrire M 
BECLIN-Cl ruedeNiffer-68110 lllzach. 

Echange logiciel util pour CPC 6128, cherche 
contact assembleur MERLE J.M.-13 rue 
Visticot - 62860 Oisy-le-Verger 

Stop affaire ' Vends CPC 6128 coul + manuel 
* manette * 26 dises, très bon état (nbx jeux 
+ utilitaires) Tél. . 39 83 42 55 à partir de 
19hO0. Urgent. ' 

Cherche contact DK sur Caen et sa région 
pour échange, cherche également un lecteur 
5 1/4 Vortex avec doc. - LE GAC J Claude - 3 
rue de Suède - 14460 Colombelles 



Urgent achète clavier CPC 6128 (ou 664), prix 
maximum ; 1200F. Tél. : 83.32. 1749 heures 
repas. Demander Lionel. 

Echange jeux sur 6128, beaucoup de 
nouveautés. Tél. : 38.75.51.73 à partir de 
I9h30- Richard FANCELLI-4 avenue 
Foch - 451 70 Neuville aux Bois ap. 19 h 30. 

Super le journal sur 3" ; Micro boy. Depêchez- 
vous ! Envoyez 2 timb. HALLAIS Fabrice - 4 
allée Berny d'Houville - 93190 Livry-Gargan. 

Echange jeux sur CPC disk, possède Rastan, 
1943. Game over 2, Marauder, Gunship. 
Hoppin, Psycho pig. Tél. : 51.58.9695. 
Demander Tay 



Cherche pour CPC 61 28, jeux aventure, vends 
Atari 520 STF avec jeux ; 2600 F. Tél. : - 
87 03 51 67 -Région Sarrebourg. 

Achète 50 F pièce Log + Not , util. : Jade. 
Oxford PAO, jeux ; Space Racer, Dellector. 
Martial DURPOIX - Beaumenil - 88600 



Vends Amstrad CPC 464 coul. 150 jeux + 
manettes, la bible du programmeur +■ 80 livres 
(Amstar etc.). Demander Mathias Tel : 
67 50 88 10 

Vends CPC 464 mono + joystick Sony + 
nombreux jeux originaux ■ 1500 F Tél. : 

64 88.69.74 



Echange CPC 464 


s»A. -i- 90 je 


ux et util. + 


joystick * doubleur + 


console de ie 


jx Thomson 


contre T08 ou T09 o 


T09+ avec 


monit. Tél. : 


89.40.22.54. 







3500 F : 61 28 C-1 man + 20 jeux + tablettes 
graphiscope + 20 util. PACALET Stéphane - 
25 Ch. de la Barre - 38260 La Côte St André 
- 74 20.29.39 

Achète synthétiseur vocal technimusique pour 
CPC 6128. Pas cher. Tel 78.75.56.50 
Demander Annie 

Achète logiciel pour 6128 util., éduc. dBase 
II, devis, Multiplan. Factstock, Datamat, Tasco 
SAINTY - 18 AV. BIBLOCO - 62155 
MERLIMONT 

Vds 6128 coul -Oct 87.. + 5 "Vortex sous 
gar. + 10 D7 3» T 50 D7 5 + Boîte rang le 
tout 6500 F. Tél. 44.22.05.96 

Echange nombreux jeux sur CPC 6128 - 
Réponse assurée - DROU ET Jacques - 643 
Bd Grignan - BP 1203 - 83070 TOULON 
CEDEX 

CPC 6128 : Vends, échange, achète, possède 
news (Rastan, Vindicator...) Tran PM - 21 
Av. Georges Brassens - 87500 ST YRIEIX 

464 Echange logiciels K7 S dises. Envoyer 
liste GUILLOTJ -P. -43 Grande Rue -80510 
LONGPRE-LES-CORPS-SAINTS. Réponse 



Vends 6128 coul. + 60 disks + housses ■ 
doubleur + revues + joystick : 3500 F ; 
débattre Tél.: 39 56 43.60 - Jouy-en 

Josas- Yveline. 
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■ LES PETITES ANNONCES ET LES MESSAGES 

: Attention, vos PA seront mises sur le serveur avant la parution du journal 
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Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan -351 70 BRUZ 
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La Haie de Pan - 35170 BRUZ 

Tel- : 99.52.98.11 -Télécopie 99.52.78.57 
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Les articles cl programmes que noua publions dans ce 
tuimérobénéiïcient, pour une grande part, du tiroir d'auteur. 
De ce fait, ils ne peuvent fitre limilés. contrefaits, copiés 
par quelque procède que ce soit, même partiellement mu 
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zine RCS Rennes B3 19 816 302 
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Vends à partir de 35 F mes originaux sur disque 
ou échange contre news (jeux, utilitaire, autres) 
77 MEAUX Luc. Tél. 64 34.1 7.84 

Echange jeux sur K7ou D7 pour Amstrad CPC. 
Réponse assurée. Envoyer vos listes à J.P. 
ETIENNE - Les Fossés - 72600 MAMERS 

Vends lecteur 5P1/4 720 K 80 pistes double 
face marche en drive A et B pour CPC 61 28. 
Pnx 1400 F. Tél. 88.84.92.17 ap. 18 h 

6128 échange news (possède Opérationwolt 
- Double Dragon - Thunderblade). Cherche 
Afterbumer, Crazy, Cars II, Tiger Roadt Vends 
originaux (Tank, F1 5 Strike Eagle, Géométrie 
3e. Calitomiagames, Geebee Air Rally) 65 F 
pièce. TROCHET Fabrice - 4 rue Poullart des 
P!aces-35700R&ENNES-Tél. 99.36.70.20 

Vends CPC 6128 monochrome + cable 
imprimante + livres : Micro-appiication + 
logiciels ; Turbo - Pascal. Prix : 2300 F Tél. 
43.37.56.61 

Urgent, vds graphiscope 2 sous garantie (Nov. 
88] cause double emploi : 800 F. Laurent 
RYDER - 87 A rue de la République - 30 
NIMES 

Vds CPC 6128 couleur, nbx jeux, manettes, 
housse, boite. Prix : 3600 F Tél. 78 40 47.16 
ap. 1 9 h 

CPC 6128 cherche imprimante + câble de 
raccordement. Tél. 60.01.57.22. Demander 
Nicolas après 1 8 h 30 1 500 Max 

Pour CPC 6128 gestion budget familial + 
Compïe banque emploi aisé chèq. 107 F à 
MAURER D. - Ch. du Sablas - 84450 St 
Saturnin/ Avignon 

Vends pour Amstrad CPC 6128 drive 3"1/2 - 
ICV - double face. Etat neuf. A saisir. Prix 
1000 F. Cause passage sur PC. Tél. 
60 28.40.54 -Gérard 

Vends revues «Micro-Stràd", la revue des 
micros Amstrad du n° 1 au n° 10 (revues de 
collection) Prix: 300F. Tél. 60.28.40.54 - 
Gérard 

Big Club Espagne; échange logiciels Amstrad 
sur K7 ou disk. Liste sur demande. BIG CLUB 
C/HISPANIDAD - 67 B1-4B - 50012 
ZARAGOZA, Espagne 

Vends Amstrad CPC 6128 coul. parfait état * 
20 dises + joystick : 3000 F à débattre Arnaud 
Tél. : 43.31 29 69 



Vends CPC 6128 coul. + soits + revues + 
manuels : 3500 F, vends imprimante Citizen 
120 D; 1500 F. Tél. :48 34.81.54. Demander 



New ! Nouveau journal freeware zoom pour 
res Contacter Mickael au 64.65.15.23. Soyez 



Recherche interlace TV pour Amstrad CPC. 
Tél. après 20 h au 42.08.62 53 la 



Vends imphmante Amstrad DMP 2000. bon 
état: 1000 F. COLOMBIE - 210 av. 
Limoges - 87270 Couzeix Tél. : 55.36 43.73. 

Cherche désespérément Vectoria 3D et Space 
Racer, à petit prix. Echange possible. Tél. : 
60.29.25.08 (vers 19hO0). 

Vends CPC 464 monit. coul. + joystick + kit 
nettoyage + nbx cassettes jeux dont IK + 
Renegade etc : vendu 2500 F. Tél. : 
89.39.87.66 après I8h00. 

Viens de créer club (Amstrad K7, D7) spécial 
plans, listings, astuces... Ecrire à MONZO 
Damien - 5 rue Franz Liszt - 60000 Beauvais. 

Recherche passionné de programmation sur 
6128 en vue échange idées et création 
programmes région Nantes. Tél. 40.04 01.95 



Start CPC nouveau journal d'informatique pour 
Amstrad-Thomson cherche lecteurs et 
rédacteurs. Tél. 47.96.66.01 



Vends CPC 464 mono + joystick + revues 
100 jeux, valeur 4500 F : sacrifié 1600 F, tr 
bon état. Tél. : 42.72.35.59 après 18h00. 



Vends Amstrad CPC 6128 couleur + livres + 
magazines + joystick + logiciels : 3600 F + 
imprimante DMP 2000: 1400 F. Tel : 
96.71.05.80 

Achète CPC 1-34 et HS 1, 2, 9, 10. Cherche 
notices DAMS et DATAMAT. Paul MOLPE- 
CERES - J. Arrospide, 30 - 48014 BILBAO - 
Espagne 

A vendre CPC 464 mono + lecteur disquet- 
tes 4- joystick + 200 logiciels (jeux, utilitai- 
res) :2500 F. Tél. 61.B6.67.41 (19h à 20h) 

Si vous voulez gagner bcp d'argent honnê- 
tement et chez vous, envoyez 2 timbres à 
GIRARD Fred - 14 rue J. Collet - 69330 
MEYZIEU 

Echange Sold à Million 2 + Supercycle + 
Crazy Cars (originaux) : 100 F un, 250 F tes 
3. Demander Bruno après 19h au 
63.75.93.59 

Vends Mirage-lmager : 350 F ; bus exten- 
sion maie, souris AMX : 300 F. Tél. 
39.46.84.07 après 20h 

Vends périph Mirage Imager Turbo + câble 
6128 (garanti 4 mois). Valeur 500 F, vendu 
350 F. Tél. 84.37.63.52 (après 17h30) 

Stop affaire I Vds 6128 Amstrad, état neuf + 
MTR couleur + 50 jeux (bcp de nouveautés) 
+ QQUES DK vierges + CY OPT + manette : 
3400 F. Tél. 48.76.73.32 
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RESULTATS CONCOURS 

A 320 

Après vous être longuement entraîné aux commandes de TA320 et avoir pleinement profité du délai de grâce octroyé 

pour nous envoyer votre bulletin, voici l'instant fatidique des résultats. A noter que l'erreur 

la plus fréquente s'est produite sur la fréquence radio du pirate. . . 





1 - Quel es 


votre nom dans le jeu A 3J(! Je Loriciels? 


John 


2 -Quel 30 


11 de la semaine avez-vous rendez-vous avec la 


Jeudi 


3- Quelle e 


st la marque de la voiture garée dans le parking ? 


Jaguar 


4-CormM* 


n de personnes maximum peuvent monter dans 


«personnes 


5 - Quelle 


st la frikjuvnci; radio diï'ptrate? 


129,5 



LES GAGNANTS: 

1 - Brke DESLANDES- 49480 St Svlvain d' Anjou/2 -Jean-Baptiste POULIZAC - 34150 Gignac 
3 - Jean-Marc JEROME - 54000 Nancy/4 - Pierre-André LAUBU - 0680Û Gagnes sur Mer 
5 - Jérôme JUAN - 06500 Mcnton/6 - Jean-Marie LEHMANN - 67100 STRASDOURC 
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BULLETIN D'ABONNEMENT 




1 1 NUMEROS . 



210 F 



Code postol : 

Date : 



Signature 

rci d'écrire en majuscules. 
Bulletin à retourner à l'ordre d» Editions SORACOM. 



PORT: 

DOMTOM + étranger : 

envoi par avion : 

+ 120F 



LES ABONNEMENTS 
NE SONT PAS 
RETROACTIFS 



Pour les étrangers le règlement se 

fait soit : 

■ par eurochèque (numéro de carte ins- 
crit au dos) 

■ par mandat international 

■ par virement CCP 794 1 7 V Rennes 

Ci-joint un chèque libellé à l'ordre de : 

Editions SORACOM 

La Haie de Pan 

35170 BRUZ 



R E S E N T E 







^vlcAJU 1 



^stf& 







MOULINSART ; le professeur Tournesol a mis 
au point une bombe infernale. Empêchez-la 
d'exploser. (Aventure) 
Prix : 120 F 



3e •*» 






Bloodstone 



BLOODSTONE ; ajorc; eu un accident de voi- 
lure enpleine nuit, voire seul refuge est un ma- 
noir. Qu allez-vous y découvrir ? (Aventure) 
Prix :120 F 

Jt HUM ANOID : votre mission consiste à retrou- 
ver les 3 codes d'ouverture du sas de la navette 
emportant le savant Elithios. f Arcade! Aventure) 
Prix :120 F 

BOULDEH : un jeu inspiré par qui-vous-savez 
mais qui propose de véritables énigmes et un 
éditeur de tableaux en prime. (Arcade) 
Prix :120 F 



Hum, 



ANoin 






£fW°N 
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Mode de règlement : . 

Chèque □ Mandat □ Chèque postal 1 



\ 




Adresse 

Code postai— 



TITRES 


QUANTITE 


PRIX UNITAIRE 


MONTANT 










Commande en date 




DelâJ 

logiciels 


10 F 




''OKI' logiciels 


13 F 




au-dessus 


20 F 




Total 






Envoi eai recommandé 


7F 


bles sur disquettes ! 


Montant global 



SIOPC 
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MIC R O - INFORMATIQUE 

Mensuel n° 31 -Mors-Avril 1989 ifcv 



SSIER: 

LES 16 LOGICIEL! 
INDISPENSABLES 

MELANGEZ 
LES MODES 

GRAPHIQU 



, 



M 2817 - 31 21.00 F 




BANCS D'ESSAIS ~ BANCS D'ESSAIS 
(Suite) 



GRAND 
CONCOURS 



SOLUTION : L'ILE 



BANCS D'ESSAIS 
UTILITAIRES 

DOUBLE MODE 

- - . i 




yj DOSSIER : LES 

Poster indispensables 

DE VOTRE 



ETOILES 



REDUCTION 
DU CODE BASIC 



LOGITHEQUE 



LEXOIN 
DES AFFAIRES 



IT i - ;i 



PUISSANCE 4 



VOUS AVEZ DIT 
ASTUCES? 



liU BULLETIN 

TELECÎ E TRUCS ET ASTUCES D'ABONNEMENT 
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LORICIELS 



Ça y est ! Un bout du projet mystérieux 
et Top Secret de Loriciels a montré son 
bout de nez, ou plutôt le bout de ses 
poils car il porte le nom de SKWEEK et 
nous est d'abord apparu sous l'aspect 
qu'il a pris pour faire notre 
connaissance sur Terre. Après s'être 
présenté et nous avoir tous charmés, il a 
consenti à nous expliquer l'objet de sa 
visite sur Terre : il est le héros d'un jeu 
d'arcade de style Pacmanîa remis au 
goût du jour dans lequel il doit 
traverser 99 tableaux différents (qui 
représentent 99 continents contaminés) 
en peignant en rose toutes les dalles 
bleues ; mais, bien entendu, certaines 
dalles sont piégées et réservent bien des 
surprises. . . 

Ce logiciel possède 2 modes de jeux 
différents : un mode normal qui permet 
de gravir les tableaux un à un et un 
mode aléatoire qui permet de goûter 
directement à des niveaux plus élevés ; 
par ailleurs, la sortie sur nos écrans est 
prévue pour la fin du mois. 



LORICIELS 
81 rue de la Procession 
92500 RUEIL MALMAISON 
Tél. 1A7.52.11.33 





Ubisoft 



Grandslam 



Voici tout simplement les dates prévues 
de sortie des logiciels que nous vous 
avons annoncés ou présentés en 
avant-première dans nos précédents 
numéros : 

Début mars : Purf/s Saga 
Hadès 

Fin mars : Night Hunter 

Skateball 
iron Lord 



n nouveau produit doit sortir sur nos écrans de CPC ; il s'agit 
de Pack Land qui espère connaître le même succès que Pacmania. Dans ce 
pays de Pac, vous acceptez d'aider un pauvre petit «Fairy» perdu et de lui 
faire retrouver son chemin vers «Fairyland». Pour cela, vous traverserez 
des villes, des déserts, des montagnes et autres dangereux ravins tout en 
faisant des rencontres dont vous vous passeriez bien. . . 

GRANDSLAM 

Distribué par Ubi Soft 
1 voie Félix Eboué 
94021 CRETEIL CEDEX 
Tél. 1.48.98.99.00 



38888 
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Palace software 



La patience finit toujours par payer ! Si, si, croyez-moi... La preuve, c'est 
que Barbarian 2 va enfin arriver sur nos écrans CPC ; il vient en effet de 
rentrer dans la dernière ligne droite et pour preuve, voici une photo 
d'écran vous présentant un des nombreux adversaires que vous devrez 
affronter. La suite dans le banc d'essai complet que nous vous livrerons à 
sa sortie. Mais, en plus, dès aujourd'hui, nous pouvons vous annoncer un 
nouveau logiciel Palace Software prévu pour le début de l'été ; il s'agit 
d'une arcade-aventure s'intitulant Monster Muséum. Un beau soir, vous 
vous retrouvez tout seul enfermé dans un musée où il fait tout noiT ! Non 
seulement vous avez horreur du noir mais en plus tout devient subitement 
vivant et commence alors une curieuse apparition de monstres. Comment 
sortir de ce cauchemar ? 

PALACE SOFTWARE 

The Old Forge Business Centre 

7 Caledonian Road 

LONDONN190X 

Tél. (44) 1.278.0751 
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Kixx 



Kixx est une société anglaise qui édite 
sur cassettes des budgets à un rythme 
soutenu et régulier puisque leur 
planning prévoit 4 titres par mois. 
Parmi les derniers en date, vous 
pourrez remarquer que 3 d'entre eux 
ont fait l'objet d'un banc d'essai 
complet dans votre revue préférée ; il 
s'agit de World Games, Black Beard, 
Rygar et Braves ta rr. 

KIXX 

Swan Chambers 

MM Street 

Congïeton TOuse 

CHESMIRE CW12 1AB 

Tél. (44) 260.299023 
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™amstrad/schnejdeh 
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Electronic arts 



Avec le printemps et le retour logique des beaux jours, le goût des activités 
sportives va vous revenir ; aussi, pour tous les après-midi pluvieux ou les 
envies de rester devant votre CPC, vous allez pouvoir faire de nouveau un 
petit «green» avec Mini-Putt. Pouvant se jouer de 1 à 4 joueurs, cette 
simulation de golf vous propose plusieurs parcours, chacun d'eux étant 
illustré par un thème différent. De plus, il est possible d'obtenir une vue du 
dessus afin d'avoir une meilleure perspective et, pour terminer, il existe 3 
types d'obstacles dans un parcours avec par exemple des passages comme 
des ponts demandant des tirs très précis ; mais aussi des contretemps créés 
par l'apparition soudaine de barricades et enfin un minutage obligeant le 
joueur à effectuer son tir à un moment précis... Nous attendons avec 
impatience de voir le résultat final de ce logiciel. 

ELECTRONIC ARTS 

Distribué par Ubi Soft 





Vous connaissez certainement le joystick Speed King qui tient dans la main mais pas dans la bouche. Ce sont d 
Anglais qui fabriquent cet engin. Mais ne croyez pas que leurs ambitions s'arrêtent aux simples périphériques. En 
effet, la prochaine Konix ne sera pas une manette mais une console de jeu. L'Europe se réveille après les assauts de 
Nintendo, de Sega et d'Atari. La Konix possède des caractéristiques très intéressantes. Elle est présentée sous la 
forme d'un socle eh «U» muni d'une base supportant les différents instruments de jeu. Il est en effet possible de 
posséder à la fois un volant, un manche à balai et un guidon de moto. L'équipement est complété par deux 
interrupteurs actionnabîes au pied. Alors on peut avoir réellement l'impression de piloter un véhicule. Parmi les 
autres accessoires, on trouvera un fusil léger (avec recul s'il vous plaît) transformable en pistolet, un joystick style '' 
manche à balai d'hélicoptère et enfin le plus incroyable : un fauteuil entier monté sut vérins hydrauliques et qui 
suit les mouvements de l'action ! Voyons un peu l'électronique de cet engin : un microprocesseur 8086 assisté par 
une puce a architecture Risc (fréquence 12 MHz). Il existe 3 résolutions : 

256 x 200 en 256 couleurs parmi 4096 - 256 x 200 en 16 couleurs parmi 4096 - 512x 200 en 16 couleurs parmi 4;)96 
Le son est traité sur 14 bits (presque l'équivalent d'un disque compact) en stéréophonie. 

Les jeux se présenteront sous forme de disquettes 3,5 pouces (comme IBM PS/2, AMIGA, ATARI, MAL I MTOS1 1 i 
d'une capacité de 880 Ko qui seront lues par un lecteur spécial empêchant toute tentative de copie. 
Pourquoi parler de cet appareil dans Amstar & CPC ? Tout simplement parce qu'il s'agit d'une machine destinée 
aux joueurs acharnés et que l'utilisation des Amstrad est à plus de 80 % consacrée aux jeux. Alors attendons le \ 
mois d'août et nous verrons si la machine annoncée est bien là et surtout à quel prix elle sera vendue. 



Le forum pc 
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Les MILLE ET 
UN VOYAGES 



►Dis, raconte-moi une histoire ! Voici 
une demande embarrassante pour 
ceux qui n'ont pas une imagination dé- 
bordante... Avec ce logiciel, il y a énor- 
mément de combinaisons d'éléments dif- 
férentes ce qui fait que vous avez un grand 
nombre d'histoires à votre disposition; 
de plus, il est possible d'en créer de nou- 
velles, alors... Quatre décors de fond sont 
disponibles : le pays de l'eau, la campa- 
gne, la ville et l'espace. Voici, à titre 
d'exemples, 2 histoires que nous avons 
créées au gré de la sélection de différen- 
tes icônes parmi celles dont nous dispo- 
sions. 
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• Voici la merveilleuse histoire d'un 
fier soldat du royaume des contes. 
Il habite un château merveilleux aux 
tours de pierre. Mais chaque jour, il 
rêve départira la découverte de l'uni- 
vers. Aussi, un matin, notre fier sol- ■ 
dat s'embarque pour le grand voyage. 
Il a le désir de faire fortune, d'amas- 
ser les richesses les plus précieuses. 
C'est au cœur de la ville étrange avec 
bulles et couloirs de verre qu'il ren- 
contre soudain une reine maudite : \ *■ 
chef des ennemis, rusée et invinci- 
ble. 

Or, la reine maudite dispose d'une 
arme redoutable : ses malédictions 
pétrifient les ennemis. Le fier soldat 
jette toutes ses forces dans le com- 
bat qui se poursuit jusqu'au cœur de 
la grande ville avec ses tours et ses 
gratte-ciel. Mais grâce à un magicien, 
notre héros peut échapper à cet en- 
nemi redoutable. 

Ce combat est devenu une légende 
que tous les gens de ce pays connais- 
sent et racontent a leurs enfants. Mais 
bientôt, il rêve d'autres paysages et 
part visiter la ville d'Orient aux mille 
et un palais. On raconte qu'il a re- 
trouvé une amie et qu'ils font le 
bonheur de tous dans ce pays. 




m 





• Voici la merveilleuse histoire d'un 
bel oiseau du royaume des animaux. 
Il habite au cœur d'une montagne 
avec ses neiges et ses glaciers. Mais 
chaque jour, il rêve de partir à la dé- 
couverte de l'univers. Aussi, un ma- 
tin, notre bel oiseau commence son 
grand voyage. Pour parcourir la cam- 
pagne avec ses bois et ses jardins, il 
faut un moyen merveilleux et rapide. 
Aussi, il choisit une navette bleue et 
blanche, marquée d'étoiles. Le voyage 
le conduit au fin fond de la forêt avec 
ses arbres extraordinaires et c'est là 
qu'il se trouve soudain face à un 
ennemi redoutable ; la sorcière de la 
nuit. Le combat est très rude et no- 
tre héros sait qu'il risque sa vie. Mais 
grâce à son habileté, notre héros sort 
du combat avec les honneurs. C'est 
après bien d'autres longs voyages 
qu'il choisit de s'installer dans le 
désert avec ses dunes et ses oasis. Et 
c'est ainsi qu'il est devenu le roi de 
ce pays et son règne durera encore 
mille et une années. 




X 




Tout ceci n'est qu'un petit aperçu de ce 
que vous pouvez obtenir ; bien sûr, le 
schéma général reste toujours le même : 
le héros a envie de voyager, il part 
au-devant de multiples aventures et tout ■ 
se termine toujours bien mais il faut con- 
sidérer les éléments qui entrent en scène 
et suscitent l'esprit Imaginatif de l'en- 
fant... 

Editépar : Carraz Editions 
Prix indicatif: Non communiqué (seu- 
lement sur DK) 




ants de 3 à 8 ans, a une présentation soignée et finie ; de plus, il est ergonom 

, l'une musique légère et agréable. Il est simplement dommage que les graphisi 

s car c'est un peu tristounet. Enfin, dans l'option créer une histoire, vous avez trois possibilités : reg= 
lut-petits, voir et lire l'histoire pour les plus grands et, enfin, lire et pouvoir modifier l'histoire pour ce 
ilement, la version Amstrad ne possédant pas de synthèse vocale, le petit ne peut entendre l'histoin 
n'est donc pas intéressante. Pour terminer, nous dirons que les histoires utilisent un vocabulaire i 
a sans doute la présence occasionnelle d'un plus grand pour profiter pleinement de ces 1001 voyages 
jn des buts recherchés que de réunir l'adulte et l'enfant devant l'histoire ? A noter aussi que le logiciel 
; sur carton et des personnages à découper ce qui permet également de jouer sur papier. 





Cosmic Software vient de voir le jour en éditant deux compilations de jeux 

d'arcades s'intitulant respectivement les Inédits I et les Inédits II. Pour fêter 

cet événement, la société vous propose dans les colonnes d'Amstar & CPC 

un concours très facile. N'hésitez donc pas à vous précipiter sur la page 

ci-contre et remplissez avidement le questionnaire. 





1er prix : Bon d'achat de 1500 
francs chez Général 
2ème prix : Bon d'achat de 750 
francs chez Général 
3ème prix : 3 logiciels ESAT Soft- 
ware 

du 4ème au lOème prix : 1 logi- 
ciel à choisir dans le catalogue 
ESAT. 

(Sur simple demande, il est possible d'ob- 
tenir le catalogue ESAT à la rédaction d'Ams- 
tar & CPC). 



Quel est le nom du label de jeux de la société ESAT SOFTWARE ? 



Quel est le slogan des jeux les INEDITS ? 



Combien de jeux contiennent les Inédits 1 et les Inédits 2 ? 



Quel est le nom de l'auteur de tous les jeux des Inédits ? 



Quelle est la caractéristique commune à 3 jeux des Inédits ? 



\S Question subsidiaire : 

Donnez le nombre de bulletins comportant toutes les bonnes réponses que nous rece- 
vrons : 



(en cas d'ex aequo, un tirage au sort sera effectué) 



Renvoyez ce questionnaire à CONCOURS MENSUEL AMSTAR 
Editions SORACOM - BP11 - 35170 BRUZ 

Aucune photocopie ne sera acceptée. Pour le mineur 
gagnant, l'autorisation des parents sera nécessaire. 



DERNIER DELAI LE 15 AVRIL 1989 




Adresse 

Code postal . 



. Ville 



Signature : 

Si je gagne, je voudrais mon lot sur : 

□ K7 □ DK 



mmms 



^ Ne trouvez-vous pas qu'il y a long- 
™ temps que vous n'avez pas évolué 
dans un monde mystérieux et inquiétant 
qui se trouve au-delà du royaume de la 
magie ? 

C'est à cet endroit que se trouvent les "For- 
ces Noires" pouvant contrôler le destin 
de tous ceux qui osent pénétrer dans la 
Maison de la Nuit. 

Et vous, Dwarf, faites partie de ces fous 
mais pour espérer 
vous en sortir 
(contrairement à 
ceux qui ont es- 
sayé avant vous) 
vous décidez d'ac- 
cepter le concours 
d'un oiseau qui est 
plus rapide que 
vous et qui répond 
au doux nom de 
Duck. 



En soi, le principe 
est très simple : le 
but est d'atteindre 
la Salle des Calculs 
mais 2 handicaps 
majeurs s'y oppo- 
sent ; d'une part, 

clé et d'autre part, 
le plan que vous 
avez vous indique 
plusieurs salles de 
Calculs ce qui veut 
dire que ce sont 
des salles fantô- 



Sachant cela, il ne vous reste plus qu'à 
trouver la clé ! hélas, les Forces Noires 
sont très rusées car elles ont éparpillé la 
clé en 10 morceaux, chaque n 
trouvant dans un coffre. 




Y'a plus qu'à !... sachant que les choses 
se présentent ainsi à l'écran : en haut l'ac- 
tion, au milieu le plan de la maison vous 
situant et situant le ou les fantômes qui 
sont là pour vous contrer et qu'il faut 
éviter à tout prix, et en bas le tableau des 
scores pour chaque personnage et le 
nombre de morceaux de clé récoltés. 

Par conséquent, en se repérant par rap- 
port au plan de la maison, il faut descen- 
trous ou monter grâce aux 
portes tout en ti- 
rant sur les crânes, 
yeux ou autres 
bestioles qui vous 
pompent l'énergie 
et en s'éloignant 
autant que faire se 
peut des fantômes 
meurtriers... 

Enfin, dernier dé- 
tail important : à 
certains niveaux, 
on trouve de gros- 
ses boules qui 
peuvent être pro- 
jetées contre les 
parois élargissant 
ainsi le champ 
d'investigation... 

Editépar : 
Firebird 

Prix indicatif : 
i Non communi- 
qué 



Mais, attention, là e 
fres fantômes vides 
pas drôle...). 



î, il y a des cof- 
ion, ce ne serait 



Le qualificatif glogal que l'on peut octroyer à Dynamic Duo tient en 2 mots : "C'est 
mignon I". En effet, les graphismes sont très colorés, l'animation est rapide et l'ac- 
tion garantie. Les non-initiés auront intérêt à changer en début de partie les para- 
mètres de difficulté de jeu et à choisir le niveau le plus facile sous peine d'avoir 
énormément de fil à retordre avec ces maudits fantômes. 
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> Cela fait un an, un an que je m'en- 
^ traîne dans une seule optique : pren- 
dre le départ de cette course fabuleuse 
que tout pilote digne de ce nom rêve de 
courir au moins une fois dans sa vie. Vous 
avez bien sûr deviné qu'il s'agit des 24 
heures du Mans, course d'endurance par 
excellence aussi bien pour les pilotes que 
pour les machines. 

C'est donc avec une fébrilité non dissi- 
mulée que je me place sur la grille du 
départ ; 3, 2, 1 ... ça y est, c'est parti ! Dès 
que mon indicateur de vitesse atteint 70, 
je passe en vitesse supérieure ce qui me 
propulse rapidement à la vitesse de pointe 
de 215 et me permet par la même occa- 
sion de gratter toutes les voitures qui me 
devançaient avant que je n'entame mon 



premier virage à droite. Il ne faut surtout 
pas se laisser griser par la vitesse et ne 
jamais oublier que le circuit des 24 h du 
Mans est un des plus tortueux qui exis- 
tent et que, par conséquent, les virages 
sont toujours délicats à négocier. 
Croyez-en mon expérience quand, por- 
té par ma fougue de novice, j'ai abordé 
trop vite le 1er virage et que dans mes 
essais pour redresser la situation, j'ai ef- 
fectué un dérapage et atterri directement 
dans les panneaux qui bordent le circuit 
(quand ce ne sont pas des arbres). Pen- 
dant ce temps, le compte à rebours tourne 
inexorablement et c'est grâce au sans 
fautes de conduite qui suit que j'arrive à 
franchir le premier contrôle sur les 3 qu'il 
faut passer pour terminer un tour. Le 
deuxième tronçon se révèle technique 
mais faisable sans trop de problèmes à 
condition de ne pas percuter un autre 
concurrent... car ceci se solde par de 
magnifiques tonneaux et une perte non 
négligeable de temps. Quand, à force de 
persévérance je franchis le de 




contrôle, je me rendscompte que les deux 
tronçons précédents n'étaient rien face à 
celui-ci ! En effet, il est très, très sinueux, 
alors quand il faut contrôler la voiture et 
les agissements des autres concurrents, 
vous avez intérêt à démarrer ce tronçon 
avec 105 de bonus si vous voulez espé- 
rer le terminer !... Dans de bonnes con- 
ditions, vous entamez alors immédiate- 
ment le second tour... sachant que pour 
boucler le parcours vous en avez 4 à ef- 
fectuer. 

Edité par : Imagine 

Prix indicatif : K7, 99 F ; DK, 149 F 




Sans conteste, c'est une des 
meilleures simulations que 
nous ayons eues dans le genre 
depuis quelque temps. Mais 
les nostalgiques ressortiront 
toujours 3D Grand prix qui 
reste un classique hors pair. 
A noter quand même que si 
les graphismes et les couleurs 
sont un peu mornes, l'anima- 
tion de Wec le Mans vous in- 
cite à jouer d'autant plus que 
le circuit n'est pas très facile. 
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Quel possesseur de CPC ne maîtrisant pour seul langage que le BASIC 

n'a pas désiré créer ses propres jeux d'aventures ou de société ? 

L'AMSTRAD est certainement la machine qui, dans sa catégorie, 

dispose du BASIC le plus performant. Cependant, il ne permet ni le 

stockage ni l'affichage de pages-écrans et aucune commande n'autorise 

l'accès à la deuxième BANK du CPC 6128 ou la gestion de la mémoire écran. 

Tout programme de ce type à partir du BASIC est donc impossible. 

COMPACT peut faire cela et plus encore. 




COMPACT, c'est avant tout un 
programme de compactage 
qui permet de réduire vos 
pages-écrans et vos fenêtres graphi- 
ques à des fichiers de 1 à 9 kilos oc- 
tets. 

COMPACT est doté de différentes 
fonctions d'aide à la programmation 
tel le catalogue de la disquette, une 
calculatrice, un module de conver- 
sion décimal/hexadécimal, un mo- 
dule de calcul d'adresse mémoire et 



de gestion des deux BANK, un module 
de calcul d'adresse écran ainsi que 
la possibilité de garder sur un fichier 
les caractéristiques des pages-écrans 
et fenêtres graphiques compactées. 

Mais cela ne suffirait pas à la créa- 
tion de jeux si COMPACT n'était ac- 
compagné d' un jeu de commandes 
RSX. Ces commandes vont permet- 
tre de charger dons les deux BANK 
les fichiers créés par COMPACT, de 
les afficher et de les déplacer sur 



l'écran. De par leur rapidité d'affi- 
chage, ces commandes rendent 
possible une certaine forme d'anima- 
tion. A titre Indicatif, l'affichage d'une 
page-écran couleur et mode écran 
demande une moyenne de 35 dixiè- 
mes de seconde. 

L'utilisation de ces commandes ne 
nécessite aucune connaissance en 
assembleur, tout juste fout-il posséder 
quelques notions dans la structure de 
la mémoire, notions qui seront large- 




ment supplées par la présence d'ai- 
des à la programmation contenues 
dans COMPACT. 

En conclusion. COMPACT est le com- 
plément Indispensable à votre éditeur 
ou à votre numériseur graphique. 

COMMENT UTILISER 
COMPACT? 

• COMPACT travaille sur des 
pages-écrans sauvegardées par la 
commande SAVE «nompage», 
B.&C00u,&4000 qui donne sur dis- 
quette un fichier binaire de 17 Ko. Les 
pages-écrans issues d'un éditeur 
graphique devront être sauvegardées 
sous cette forme, 

Pour des besoins d'ergonomie te choix 
de la présentation s'est porté sur un 
menu simple, car en effet peu de 
possesseurs de CPC disposent de 
souris, les menus déroulants ont donc 
été proscrits, COMPACT se présente 
par une succession de menus où la 
sélection est faite par l'appui de la 
touche correspondant au numéro se 
trouvant avant l'option choisie. Il suf- 
fit de sélectionner une option et de 
répondre aux questions posées par le 
programme. 

MODE D'EMPLOI 

L'appui sur la barre ESPACE permet 
le changement des couleurs du pa- 
pier et du stylo suivant dix combinai- 
sons, 

COMPACTAGE BINAIRE 

Point fort de ce logiciel, cette com- 
mande réduit un morceau ou la to- 
talité de la page-écran à des fichiers 
réutilisables par les commandes RSX. 

Compactage de page-écran 

- Entrez le mode écran 

- Entrez le nom du fichier page 17 Ko 

- En irez le nom du fichier nouvellement 
créé 

- Entrez deux couleurs pour chaque 
stylo 

(Ceci afin de permettre le clignote- 
ment des stylos), 

-SI vous avez des stylos de deux 
couleurs différentes, répondez oui à 
la question concernant la vitesse de 
clignotement des couleurs. 
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- Si oui. réglez h 
ploi à l'écran). 

- Appuyez sur une touche pour affi- 
cher la page-écran à compacter. 
-Appuyez sur une touche afin de 
débuter le compactage. 

Ceci afin de permettre de sauvegar- 
der la page-écran compactée sur 
une autre disquette, le compactage 
étant automatiquement suivi de la 
sauvegarde. 

Après le compactage, le programme 
affiche à l'écran les caractéristiques 
suivantes : mode écran, type de fichier 
(page-écran ou fenêtre graphique), 
nom du fichier, bénéfice par rapport 
à un fichier non compacté, adresse 
de début de la mémoire écran, 
adresse de fin de la mémoire écran, 
taille réelle du fichier en mémoire, taille 
du fichier sur la disquette, La possibili- 
té vous est offerte de sauvegarder les 
caractéristiques sur un fichier. 

- Désirez-vous sauvegarder les carac- 
téristiques sur le fichier «BIBLIOTEC» ? 

- SI oui. entrez un commentaire ou une 
remarque de votre choix. 

Pour plus de détail sur le fichier «BI- 
BLIOTEC», voir le paragraphe ARCHI- 
VES, 



Compactage de fenêtre graphique 

Deux possibilités se présentent à vous : 
vous connaissez les coordonnées 
graphiques de votre fenêtre ou vous 
les Ignorez. Si vous êtes dans le second 
cas, vous pouvez les déterminer en 
répondant oui à question : 

- Appel d'une page-écran pour dé- 
terminer les coordonnées ? 
-Entrez le nom de la page-écran 



- Est-ce une page-écran compactée 
ou une page 17 Ko? 



SI la page-écran que vous désirez 
appeler n'est pas compactée, l'ordi- 
nateur vous posera la question sui- 
vante. 

- Entrez le mode écran 

SI vous connaissez les coordonnées de 

votre fenêtre, un tableau s'affichera 
sur votre écran. Il vous faudra entrer 



les coordonnées graphiques, Sinon 
lisez le mode d'emploi affiché à 
l'écran et appuyez sur une touche, 
A noter que le cadre permettant de 
déterminer les coordonnées ne se 
déplace pas de pixel en pixel mais 
d'octet en octet. ' 

- Entrezle nom du fichier nouvellement 
créé 

COMPACT permet de changer l'at- 
tribution des stylos. Ceci est très utile 

lorsque l'on veut accorder sur le même 
écran différentes fenêtres issues de 
pages-écrans différentes, 

- Désirez-vous changer les stylos ? 

- Appuyez sur une touche pour dé- 
buter te compactage. 

Les caractéristiques du fichier nouvel- 
lement créé s'affichent à l'écran, la 
posslbllté vous est offerte de les sau- 
vegarder. 

- Désirez-vous sauvegarder les carac- 
téristiques sur le fichier «BIBLIOTEC" ? 

- S oui, entrez un commentaire ou une 
remarque de votre choix. 

DECOMPACTAGE BTNAIRE 

Cette option a pour but de vérifier si 
le compactage s'est bien déroulé, 
cela sans sortir de COMPACT. L'affi- 
chage des fenêtres graphiques se fera 
dans les couleurs utilisées lors du der- 
nier compactage de page-écran ou 
par défaut dans les couleurs d'origine 
du programme. 

Décompactage de page-écran 

- Entrez le nom du fichier. 

Pour revenir au menu principal ap- 
puyez sur une touche, 

Décompactage de fenêtre graphi- 
que 

- Entrez le nom du fichier. 

- Entrez le mode écran. 

Pour revenir au menu principal, ap- 
puyez sur une touche. 

CATALOGUE 

Cette commande affiche le catalo- 
gue de la disquette ; pour revenir au 
menu principal . appuyez sur une tou- 
che. 



ARCHIVES 

COMPACT vous offre la possibilité de 
sauvegarder les caractéristiques de 
vos pages-écrans et fenêtres graphi- 
ques sur un fichier appelé 
«BIBLIOTEC.BIN». Ce fichier est auto- 
matiquement créé lors de la première 
sauvegarde. Cette option est très utile 
car elle permet de se constituer une 
bibliothèque de fichiers, avec un fi- 
chier «BIBLIOTEC» sur chaque face de 
vos disquettes. La capacité de «BIBLIO- 
TEC» est de 60 fichiers ce qui corres- 
pond à la capacité du catalogue 
d'une face de disquette 3"l/2. 

Calculatrice 

Comme son nom l'Indique, c'est une 
calculatrice qui regroupe les quatre 
opérations. Le résultat vous est dan- 
né en décimal et hexadécimal. 

- Entrez deux nombres et appuyez sur 
la touche correspondant à l'opéra- 
tion désirée. 

Conversion décimal/hexadécimal 

Comme son nom l'Indique, cette 
option permet de convertir un nom- 
bre décimal en hexadécimal et vice 
versa. 

Calcul d'adresse écran 

Cette option permet la conversion des 
coordonnées physiques d'un point en 
position à l'écran, exemple : X=0, 
Y=400 => (CONVERSION) =» &C000. 
Ceci est très utile pour calculer la 
position d'une fenêtre à l'écran. 

Comme dans le compactage d'une 
fenêtre, deux solutions se présentent 
à vous, vous connaissez les coordon- 
nées ou vous ne les connaissez pas, 
en ce cas, la possibilité vous est of- 
ferte de les déterminer ; répondez oui 
à la question suivante. 

-Appel d'une page-écran pour 
déterminer les coordonnées à 
l'écran ? 

SI vous avez répondu oui . le pro- 
gramme vous posera les questions 
suivantes : 

- Nom de la page-écran. 

- Page-écran compactée oui ou 
non ? 

Si vous avez répondu oui, le pro- 
gramme vous demandera : 

- Entrez le mode écran. 



SI vous avez opté pour l'appel d'une 
page-écran, suivez le mode d'emploi 
affiché à l'écran sinon ; 

- Entrez les coordonnées X et Y de 
votre point. 

Calcul d'adresse mémoire 

Cette option vous évitera de fastidieux 
calculs, car en effet elle permet de 
calculer les adresses de relogement 
pour vos fichiers, ceci dans les deux 
BANK. Pour cela il suffit de fixer une 
portion de mémoire située en BANK 
dans laquelle vous désirez loger vos 
fichiers. Puis entrez la taille de vos fi- 
chiers, taille qui peut être entrée en 
décimal ou en hexadécimal, le pro- 
gramme calculera automatiquement 
les adresses mémoire, En cas de 
débordement en BANK 0, le pro- 
gramme relogera les fichiers restants 
en BANK 1 . Si vous désirez loger vos 
fichiers uniquement en BANK 1 , il vous 
faudra fixer une tranche mémoire 
égale à zéro, c'est-à-dire donner les 
deux mêmes nombres pour les adres- 
ses supérieures et inférieures. 

L'accès à la BANK 1 étant soumis à 
certaines restrictions et les comman- 
des RSX étant situées à une certaine 
adresse en mémoire, il vous est forte- 
ment recommandé de vous reporter 
au RAPPEL SUR L'ORGANISATION DE 
LA RAM DESCPC. 

- Entrez l'adresse Inférieure. 

- Entrez l'adresse supérieure. 

- Entrez la taille de vos fichiers (maxi- 
mum 60 fichiers). 

Afin d'obtenir une efficacité maximale 
dans le calcul des adresses mémoire, 
il est préférable de rentrer les adres- 
ses dans un ordre décroissant. 

- Entrez un pour sortir. 

Les adresses défilent à l'écran treize 
par treize, notez-les et appuyezsur une 
touche pour obtenir les autres. Sur la 
droite, une représentation des deux 
«BANK» vous montre la place occu- 
pée par vos fichiers. Pour finir, un ta- 
bleau apparaît vous Indiquant la 
place encore disponible en mémoire. 
A noter que le nombre donné pour 
la BANK correspond uniquement à ■ 
la place disponible dans la tranche 
que vous avez déterminée précédem- 
ment. 



NETTOYAGE BASIC 

Cette option est un plus à COMPACT ; 
en effet, ce programme permet d'ef- 
facer les blancs qui subsistent en bout 
de lignes de vos programmes BASIC 
ainsi que l'instruction REM, que ce soit 
sous sa forme entière ou abrégée ('). 
Ceci dans le but évident de graplller 
quelques octets. Seule restriction à son 
efficacité : les REM en bout de lignes 
ne seront pas effacés. 

ATTENTION. 11 est nécessaire que la 
disquette contenant le programme 
BASIC à «nettoyer» dispose d'une 
place supérieure à la taille du pro- 
gramme. 

-Introduisez la disquette contenant 
COMPACT et appuyezsur une touche. 
-Introduisez la disquette contenant 
le programme BASIC à nettoyer et 
appuyez sur une touche. 

- Entrez le nom de votre programme. 

- Appuyez sur F2. 

- Sélectionner une option. 

- Entrez un nom pour votre pro- 
gramme. 

- Désirez-vous effacer l'ancien pro- 
gramme ? 

- Si oui. rappelez son nom. 

- Appuyez sur F2. 

Votre programme est sauvegardé. Si 
vous voulez retourner à COMPACT, 
provoquez un RESET et rechargez le 
programme. 



Eric CINGET 
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>ÏJ 
1988 == >FK 

100 REH == « >DF 

110 BEH =============== >BC 

120 REH >TK 

130 MEHORY fc74FF:LÛA0"coipa.bin":CALL fcA0B0:P0KE U0D6, >H1 
1:CALL U094,t.75û0,t>2SA0:in0(nii)=l:inl{nn)=26:DlH pe(16 
),pel(16),st(16>,fIc*(60>:io=0:ben=Q:KEY DEF U,1:KE¥ D 
EF U,1:KEÏ DEF 4,1:JŒÏ DEF 20,i:EEST0RE 1830:F0R i=0 T 

9;READ a,b:inO(i)=a:inl(l)=b:NEIT 

140 il=tC0O0:8=0:i2=lFFFF:»3=80:i3J=":xl*= , '":i2*'":ivo >VK 

■*s";noill=":a* ;: ":aa*=' 1 :bb*-=":sa=0:ec=0:a=0 

150 aU=0:adî =17500 :REST08E 1B20:FOR 1=0 TO 15:SEAD e:p >IB 

e(i)=a:pel<n=a:NEXT:b4»="Node écran /0/1/2/ => "ibS*=" 

Mot- de la page écran a compacter => ™ :h7*="Hcw de la no 

uvel page écran -) ':b2l="Page écran coipactee /0/N/": 

M8*="Entrez le preiier nombre =>* 

160 era=Q:b3*= "Entrez le deuiieie nombre -> ":b8*="Appe >flT 

1 d'une page écran afin de deteriinez les coordonnées / 
O/N/VbSJ^Noi de la page écran source =) *:bli»='Coule 
ur 1 du stylo H ■:bi64= î Couleur 2 du stylo N VON EP.R0B 

GOTO 1690 

170 blB»="Desirez vous changer les stylo /0/N/"ihî3»="H >TF 
oi du nouveau fichier => 1 :bl4f= a Hoi de la page écran = 
> ":bl5t s "Couleur numerot 1 du bord de l'écran => ": 
bl7t='Couleur nuierat 2 du bord de l'écran => ":bS*= 
"Coordonnées horizontales (X) : > ' 
180 bl 2»= "Coordonnées verticales IY) => ":blOI="Adresse >LG 

inférieur => ":blï= , Adresse supérieur => ":b20*="Entre 
z la taille du fichier NVbo=0:bol=0ivlt=l:vl=i0:v2=10: 
cc=0:supl='"':lnf»=" 

190 PEU 0:PSIHT FRE("):H0DE 2: 1 MK 0, inOlnnl: IKK l,inll >LÏ 
mi: BORDES ïnO(nn):ORIGIN 0,0, 6, 632,390, 374:GEAPHICS PE 
H OiCLG 1:TAG:H0VE 12B,388,0,0:PBIhT ItUN 
COMPACT Util i"::TAG0FF:081GIN 0,0,0,6 
40,0,400:1F ben<0 THEN ben=0 

200 HINDOU B,73,e,22:PAPER 0:PEN 1 :CL5iU JHDOWtl, 8,73,5, >HZ 
5:H0VE 0,396, 1:D£AU 638,396:DRA»J 636,368:0RAU Q,368:DBA 
U 0,396:H0VE 50,44:DBAU 590, 44: DRAW 590,294:DRAU 50,294 

:DRAU 50,44:HOVE 50,310:DRA U 590,31O:DRAU 59Û,344:DBAU 

50,344:DBAU 50,310:H0VE 54,42 

210 DBAU 59l,42:WAIl 591,290;HOVE 592,42:DRA U 592,290:H >T6 

OVE 593,42:DBAU 593,29û:nOVE 54,308:DBAU 591,308:DRAH 5 

91 ,3*0: HOVE 532,308:I«AU 592,340:HOvE 593,3Q8:DRAW 593, 

340 

220 CALL Î.A094, 17500, 125AÛ:GRAPH!CS PAPER 0:1F saM THE >GH 

H sa=0:G0T0 970 ELSE PAPERI1,0:PFJI1, hCLStlilF cc=l TH 

EN 280 ELSE IF ccc=l THEN RE7URN 



230 TAGiHOVE 257.334, i:PE!HT- HENU PRINCIPAL ";:TAG0FF: >HD 
LOCATE 6,3:PRINT"- 1 - COMPACTAGE Bl HA IRE*: LOCATE 6,5: 
P8INT"- 2 - DECGHPACTAGE BINAIRE*: LOCATE 6,7:PRINT"- 3 

- CATALOGUE DE LA DISQUETTE 1 : LOCATE 6,9:PRIMT"- 4 - 
ARCHIVES 1 

240 LOCATE 6,11:PBINT"- 5 - OPERAT I ONS" : LOCATE 6,13:PR >PH 
INT 1 - 6 - NETTOYAGE BASIC" 

250 a»=":CLEAH INPUT:VH1L£ NOTta*:"! 1 OR a*="2" OR a*= )AB 
'3" OR l*=n' OR b»= 1 5" OR a$="6 1 OR a*=" ■) ia*=ItKEY*i 
UEND 

260 IF at= 1 " THEH nn=nn+l:UHILE nn=t0:nn=O:UEKD: INK 0, >PU 
inOlnn):INK l,inl(nn):BORDER in0(nn):G0T0 250 
270 CLS:CLSI1:IF aM'2" THEN B10 ELSE IF a*="3" THEN TA >TQ 
G:M0VE 283,334:PRINT 1 CATAL0GUE";:TAG0FF:CAT:CLEAR INPUT 
:CALL t>BBO6:G0T0 190 ELSE IF »*=•*" THEN 1130 ELSE IF a 
('"S" THEN 1250 ELSE IF a$="6" THEN 1840 
280 HOVE 140,2:D8AU 498,2:DRASI 498,26:DRAU 140,26:DRAU >PF 
140,2:HQVE 142,0:DRAU 499,0:DBAU 499,22:H0VE 5Û0,0:DRAU 

50O,22:H0VE 501,0:DRAU 501, 22: HOVE 266,2:DRAU 266,26:H 
OVE 270,2:DEAH 270,26:HOVE 3Q6,2:DRAU 306,2G:H0VE 376,2 
:0RAW 376,26:H0VE 380,2 

290 DBAU 380,26:H0VE 448,2:DRAU 448, 26: HOVE 190,2:DRAU >EK 
190,26:GBAPHICS PAPER 0:TAG:MVE i46,20:PRINT"DEBUT";:H 
OVE 276,20:PBINT 1 FIN 1 ! :H0VE 3B6,20:PHHT l LAlGB]K a ;:TM0 ' 
FF 

300 IF cc=t THEN BETURN >HH 

310 TAGsHOVE 250,334:PRINT"C0HPACTAGE BINAIRE"; :TAG0FF: >QV 
LOCATE 4,3:PBINT 1 - 1 - COMPACTAGE DE PAGE ECRAN 1 : LOC AT 
E 4,6:PRINT 1 - 2 - COMPACTAGE DE FENETRE GRAPHIQUEVLQC 
ATE 4,9:PR1NT 1 - 3 - RETOUR MENU PRiMClPALVat^ 1 
320 CLEAB INPuTîUHILE N0T(al="l" OB a»="2" OR a*= 1 3 1 ):a >GY 
»=INKEY»:«END:CLS:CLSll:IF a*="2" THEH 470 ELSE IF a*=' 
3" THEN 190 ELSE TAG:H0VE 232,334:PRINT"C0HPACTAGE DE P 
AGE ECRAN" jîTAGOFF 

330 il=fcCOOO:ill= 1, cOOO";i2=tFFFF:ï2t= 1 ffff , :TAG:H0VE 20 >QD 
6,20:PRINT'M:000';:H0VE 320,2O:PRINT'l 1 FFFF 1 ;:H0VE 462,2 
O:PRlNT , 'l 1 50";:TAG0FF:L0CATE 4,2:PRIHT b4$:L0CATE 4,4:PR 
[HT b5l:LOCÀTE 4,6:PR1NT b7l 

340 LOCATE 4,2:PRIHT 1 -;b4«; :JHPUT ",pjo:IF mo<0 OB io> >Hfi 
2 THEN PB1NT 1 ":G0T0 340 ELSE LOCATE 4,2:PBINT " *;b4l: 
LOCATE 4,4:PR1NT" "ib5*;:lNPUT " t nom* ; LOCATE 4,4:PRINT 
■ •;bSl:LOCATÎ 4,6:PRIHT" «;b7*;: INPUT ",noill:LOCATE 
4,6:PR]NT 1 Vb71 

350 CLS:IF mo=0 THEN me=15 ELSE IF io=l THEN ie=3 F1SE >BL 
■e=l 

360 y=-tîF0fi 1=0 TO ie:y=y*l:LOCATE *,lt(y«2):PRlHT 1 ": >QU 
bll»;i;:INPUT " => ",peli):LOCATE 4,l+(y»2):PRIHT" ";b 
ll*;i:y=y*l:LQCATE 4,l+(yi2>:PRlNT" , ibl6t{lf:IHPUT " = 
) ".pelUkLOCATE 4,l*(yi2):PRINT" ";bl6*;i:IF y=7 THE 
N CLS:y=-l 

370 IF pe(i)>26 OR peliKO OR pel(i)>26 OR peliiXO THE >HN 
N ERROR 100 ELSE IF pe(i)OpeHi) THEN pee=pe(i):peel=p 

B-i(ï') 

380 NEH i:CLS:LOCATE 4,2:PRIN7" 'Tbt5*; : IHPUT '",bo:LO SGC 
CATE 4,2:PR1NT" B ;bl5t:L0CATE 4,4;PRINT" -;bl7*;: INPUT 
"*,t»l:IF boObol THEN pee=bo:peel=bol 
390 LOCATE 4,4:PRINT" ";bl7J:L0CATE 4,6:PR!NT" Desirez >KF 
vous déterminer la vitesse de clignotement des ":L0CATE 
4,8:PR]NT"couleurs /D/N/ , :a»=":VHILE NDT(al="0" DR a* 



=-H"):a*=aPPEB*< I NKET* ) : UEND: PR INT 1 * ':CLS:IF a*='N' THE 

H ec=l:GOTO 460 

400 LOCATE 2.1:PRINT'- POUR AUGHENTER LA VITESSE DE CLl >UR 

GNOTEÎIEKT DE LA COULEUR NI APPUYEZ SUR <1> POUR 

DIMINUES APPUYEZ SUE <2>« 

410 LOCATE 2,4bPR1HT~- POUR AUGMENTER LA VITESSE DE CLl >UD 

GNOTEHENT DE LA COULEUR N2 APPUYEZ SUR <9> POUR 

DIHIHUE8 APPUYEZ SUR <0>' 

420 LOCATE 2,B:PtlHT»- POUR SORTIR APPUYEZ SUR <ESPACE> >UA 

VLOCATE 2,ll:PRlNT"Vitesse de la couleur ni en 50/ieie 

de secondes => 10*: LOCATE 2,13:PSINT*Vites3e de la co 
uleur n2 en 50/iete de secondes => 10':RÛRDER pee.peel 
svl=10:v2=10 
-430 SPEED 1HK vl, v2:a*=lWŒÏ«: IF a*='l' THEN »l=»ltl a >BD 
SE IF at^Z" THEN vl=vl-l ELSE !F at='B" THEN v2=v2U E 
LSE IF at='0" THEN v2=v2-l ELSE IF al=' " THEN BORDER i 
nOlnn):ec=t:GOTO 460 

440 IF vl^O THEN vl=l ELSE IF vl=256 THEN vl=255 ELSE ! >ZK 
F v2=256 THEN v2*255 EUE IF v2=0 THEN ï2=ï 
450 LOCATE 52,U:PR1NT vkLOCATE 52,13:P81NT v2:GÛT0 43 >BP 


460 GOTO 800 >ZE 

470 TAG:HOVE 202,334:PRINT"C0HPACTAGE DE FENETRE GRAPH1 >KZ 
Q.UE';:TAG0FF:LOCATE 2,e:PB[IIT" ";bfl»:a*=":UHILE NOTfa* 
="0" OS aJ^N'lia^UPPERKIWŒYDîWENDiPRINT" ":CLS:1F 
aM'N' THEN ec=0 ELSE cc=î 
480 LOCATE 4,2:PBINT' ":b9*;: INPUT"",noil:LOCATE 4,2:PR >ÏU 

1HT « ■;bfl*:LOCATE 4,4:PRINT' ';b2$:aa*=":WHILE NOTtaa 
*="N' OR aa*="DM:aat=UPPER»(IHKm):UEND:LÛCATE 4,4:PR 

INJ' ";b2*:IF aa*="0' AND cc=0 THEN 680 ELSE IF Bal="0» 

THEN 500 
490 LOCATE 4,6:PRINT' ";b4l;" •;: IHPUT ",io:IF io<0 OR >AH 

■o>2 THEN 4S0 ELSE LOCATE 4,6:PR1HT b4l:IF cc=0 THEN 6 

90 

500 CLS:LOCATE 25,2:PBINT'KQDE D* EHPLO I' : LOCATE 3,5:PRI >NG 

NT- DEPLCAHENT DU CADRE : Touches de déplacement du eu 

rseur' 

S10 LOCATE 3,7:PRIhT'- AGRANDISSEMENT DU CADRE : horizo )BQ 

ntal => F4 1 vertical => F2 ":LOCATE 3,9:PBINT'- RETREC 

I5SEHENT DU CADRE : horizontal => F6 I vertical => FB » 

îLÛCATE 3,tl:PRINT"- VALIDATION DE LA POSITION ET RETOU 

R : < espase )■ 

520 LOCATE 9,14:PRINT'< INTRODUISEZ UNE D1SQETTE ET PRE )ÏG 

SSEZ UNE TOUCHE >":CALL kflB06:PEN Oî IF aa*='0' THEN LOA 

D notî, 17500: :PAGE,i750fi,0:CALL k9B56:ia=PEEKl*c9B56):PQ 

KE 49B56.0 

S30 IF io=0 THEN «-=15 ELSE IF io=i THEN M*! ELSE ie=l >UP 



590 IF 1HJCEÏ(8)0-1 THEN d»=di-4 >ZQ 

600 IF INKEY(2K>-1 THEN dy=dy-2 >ZA 

610 IF INKEY(0K>-1 THEN dy=dy*2 >ZI 

620 IF 1NKEY(4)0-1 THEN i«=ii+4 >Afl 

630 IF INKEY120IO-1 THEN ïi=ik-4 >AZ 

640 IF INKEY(11K>-1 THEN yy=yy*2 >AA 

650 IF IWŒYU4IO-1 THEN yy=yy-2 >AS 

660 IF 1NKEY147K>-1 THEN HOVE 0,0,1, OiflODE 2;dc=(nl-4 >ZU 
)+dï:gc=(ïï+4)+duhc*(yyl-i)+dy!bc=<yyt3)tdy:SPEED KEY 
3O,2:G0SUB 190:GÛTÛ 740 

670 GOTO 560 >AA 

660 LOCATE 7,9:PBINT I C00RDONNEES GRAPHIQUES DROITE GA >UK 
UCHE HAUT BASM10VE 96,124:DRAU 544,124:DRAW 544, 
170:DEAU 96,i7û:DRAV 96, 124:H0VE 544, É70:D8AU 544,80:DR 
AU 288,80:DBAU 288, 170: HOVE 352,80:DRAU 352,17O:H0VE 41 
6,80:DRAlf 4t6,170:HOVE 480,60 
- 690 DRAW 480,170:H0VE 100,123:DRAU 2B8,123:M0VE 292,79: >LJ 
DRAtf 54S,79:DBAU 5*S,168:DRAW 546,79:DRAU 546,168:DRAW 
547,79:DRAW 547,168 

700 LOCATE 3i f B:PSIHT" DROITE" :LOCATE 33,12: INPUT ",dc )CG 
:LOCATE 31,9:PR1NT" DR01TE":LOCATE 39,8ïPHHT" GAUCHE': 
LOCATE 41,12iINPUT ",gc:LOCATE 39,9:PBIHT" GÀUCHE'iLOC 
ATE 48,9:PRINT" HAUPiLKATE 49,12:INPUT ",hc:LDCATE 4 
8,9 

710 PBINT' HAUT";LDCATE 57,9;PHlhTT" BASVLOCATE 57,12:1 >RI 
NPUT "",bc: LOCATE 57,9:PR1NT' BAS":de=dc-l:gc=gc»l:GOTO 
740 

720 IF (1<=0.O625 THEN (3=0 ELSE IF (1^0.1675 THEN (3= >UP 
1 ELSE IF fK-0.3125 THEN (3=2 ELSE IF (1<=0.437S THEN 
(3=3 ELSE IF (1<=0.5625 THEN f3=4 ELSE IF (K'0.6675 TH 
EN (3=5 ELSE IF (1<=0.812S THEN (3=6 ELSE 13=7 
730 BETURH >ZF 

740 (î = ((400-hc)/16):(2=FI)(lfl):(l=(l-(2:G0SUB 720:*ll= >EU 
HEI*(49152+((2i80)t((3ï2048lt'FIX(gc/8)):(t=((4OO'hcl/16 
1:(2=F1I(H):(1=(1-(2:G0SUB 720:i2*=KEl*(49152+(12ï60t + 
(f3i204fll+FlI(dc/8)):ï3»=HEX»IFlI((VAL{'li , *i2»()-(VALC 

750 (l=((400-bc)/16):(2=FlX((ll:(l=(l-(2:G0SUB 720:i2l- >HV 

HE»(49152Hf2t80)»{(3»204e)+FIX(dc/8H:CLS:iit=VAL( , '.'+ 

il*):x2=VALt"i"*ï2»):i3=(VAL( , s"t-i3*)) 

760 TAGîHOVE 206,20:PRINT •V;il*;:H0VE 320,20:PRINT '* >WA 

';i2t;:H0VE 462,20:PRINT "fi";*3*i" ';:flOVE 202,334:PBIN 

T "COMPACTAGE DE FENETRE GRAPHIQUE' ; iTAGOFF 

770 LOCATE 4,4:PRINT bl9t:L0CATE 4,2:PBIHT" B ;bt3*t: 1NP >ZT 

UT ",noil*:LOCATE 4,2:PRIHT' ";bl3*:L0CATE 4,4:PBINT' 

"îbt9*î" ":a*=":UHILE NOT(al="Q' OB a«="N');a*=UPPER*i 

INKETt) :WEHD: IF at="N" THEN 800 ELSE IF cc=0 THEN «=15 



540 IF aa»='0' THEN 550 ELSE HODE io:FOR 1=0 TO leilNK >VG 

],pe(j),pel(i):HEXT j:BORDER bo,ool:LOAD noil.fcCOOO 

550 PEN lîCLEAR 1NPUT:SPEED KEY l,l;di=0;dy=0;iï=223:iii >EE 

l=329:yy=150:yyl=250 

560 HQVE i*tdi,yï+dy,l,i:DRAH iKt*di,yy+dy:DRAU nl+di, >UU 

yyl*dy:DRAU n+di,yyl+dy:DRAW i«tdï,yy+dy:a»=":CALL tB 

B06 

570 HOVE nï*d!i,mdy,U:DRAH iiUdx,yy+(ty:DBAU mUéi, >QV 

yyl+dy:DRAW i«+dj,yyl-tdy:DSAU u+di,yytdy 

5B0 IF INKEY(DO-l THEN di=di+4 )ZE 



780 CLS:y=0:FOR i=0 TO iesysy^îLOCATE 4,y:PBINT" ';"Ec >TH 
hange stylo N'iij'avec stylo M => »;:IHPUT ",st(il:LOC 
ATE 4,y:PRlNT 'j'Echange stylo N';ij'avec stylo N => ■ 
:IF y=14 THEN y=0:CLS 

790 IF si(il>tS OR stliKO THEN ERRDB 100 ELSE NEITtCLS >FU 
:stl=l 

800 CLSiLOCATE 8,3:PRINT'APRES AFFICHAGE DE VOTRE PAGE )EA 
ECRAN APPUYEZ SUR UNE":LOCATE 15,5:PR1NT'T0UCHE POUB CO 
HHENCER LE CÛflPACTAGE'îLOCATE 21, 7: PU HT "(APPUYEZ SUR U 
NE TOUCHE>":CL£ÀR IKPUTjCALL tBB06:lF ec=l THEN aat="N' 

29 



BU vlt=l:cc=û:lF aaM"N' THEM aa*=":NODE io:PEH 0:LÛA >KT 
D nor.1,K000:PEH i:FÛR 1=0 TO ie:INK i,peli> p pel(i):NEI 
T 1 : BORDES bo,bol 

820 !F aa»="0" THEH PEH Û:LDAD nul, 4,7500: !PAGE,l750û t >EQ 
:PEH 1 

830 aa*=":!F atl=l THEH 3tl=0:CALL L9B7F,{bc-10),{gc-l >W 
0),(hcU0),(dc+10),st(0),5Hl),st(2) l st(3) 1 st(4) t st(5), 
stl6],st(7),9t<8>,9t(9>,st<H» t st(il),stU2) f st<13).st( 
14>,stU5) 

840 POKE 19B38,0:CALL *9B38,vlt:a=PE£K<&9B38}:IF i=vit >FA 
THEH vit=vtt+l:GOTO 840 

850 CALL IA094, 17500, fc25A0iCLEAR INPUT:1F ec=l THEH ec= >KB 
0:GOT0 680 

860 CALL &aBÛ6:adr=&7500:P0KE adr,103:POKE adr+l,49:P0K >TQ 
E adr»2,201:PQKE adr+3,217:P0KE adrU,vlt:POKE adrt5,i3 
:ad*=HLD*(ïl4,3,2):P0KE adr+8 t ¥ALeVtad*):adt=K.IDt(ilt 
,1,2):P0KE adr+S.VALCÎt^adt) 
-870 CALL 19FlE,ï3 t iil,i2,{adrt6),(adrt9),vlt:ad2$=(HEI»{ >VU 
PEFJaadrt7),2)) + <HE»(PEEK(adr+6),2»:ad2*=HEI*<(VALl*i. 
*+ad2»))+14,4):SAVE noil*,b.adr,v'AL< , i 1 *+ad2«) :sa=l:ty=Q 
:adri=adr:ben={((hc-bc)/2)«ï3)-(ÏAL('li , tad2*H:G0T0 190 

860 CALL fcBBO6:adr=li75OO:adrl=adr:P0KE adr,103:adr=adr+ >LT 
1;P0KE adi,49:adr=adMl:P0KE adr,201:adr=adrM:P0KE adr 
,l26:adr=adr+i:P0KE adr,*it:adr=adr+l:adr2=adr:adr=adr* 
2:P0KE adr, m 

B90 FOU (=0 TO ■e:iI=ie-l:adr=adr+l:POKE adr,pe(ilkadr >JF 
=adr+l:PÛKE adr f pel(ii):HEÏT:adr=adrtl:POKE adr,bo:adr= 
adr M: POKE adt,bol:adr-adrU:POKE adr,vi:adr=adrU:P01Œ 
adr,v2:CALL tt9DE8,adr2,adr,vlt 

900 ad*=HEÏ*(PEEK(adr2) ! 2):ad»=HC*(PEEK(adr2+l) ! 2):ad >DH 
2i=adlt+ad*:a=(VAL<H"+8d2*>H<f,e+l)«2)U2):SA¥E ixmlt, 
b,adrl,a:sa=t:ty=lsad2*=KEIÎ(a,4>:aen-16364-(VAL("&"*ad 
2t)):G0TO 190, 

910 TAG:HOYE 242,334:PRIHT"DEC0MPACTAGE BIHAIHE"; :TAGOF )JG 
F:LOCATE 4,3:PRIHT"- 1 - DECOHPACTAGE DE PAGE ECRAH":L 
OCATE 4,6:PRINT"- 2 - DECOHPACTAGE DE FEHETRE GRAPHIQU 
E':LOCATE 4,9:PRIHT*- 3 - RETOUB HEMU PBIMClPAL':a»=" 

920 HHILE HOT{a*=M' DB a*=*2* OB a(«"3')>ra*=IHKBt*!ilEH >HT 
D:CLS:OSU:lF iM*2" THEH 940 ELSE IF a#="3" THEH 190 
ELSE TAG:HOVE 218, 334 J PB 1 HT'DECOHP ACTAGE DE PAGE ECRAH* 
; :TAGOFF 

930 LOCATE 4,2:PRINT* ";b9*;:lHPUT ",noi»:PBINT' ":PEH >ÏF 
0:LOAD noil,li7500:nODE 2:L0CATE 19,11:PEH 1: IPAGE, 4:750 
0,0:CLEAR 1NPUT:CALL 4BB06:GQTQ 190 

940 TAG:HOVE 232,334;PBIHT'DEC0HPACTAGE DE FENETBE'iîTA >HI 
G0FF:LOCATE *,2:PBIHT"Noi de la (enetre => »:L0CATE 4,* 
:PB1HT b4*:L0CATE 4,2:PRINT" Hoi de la fenêtre => VIH 
PUT ",ikm*:LOCATE 4,2:P»INT* Noi de la fenêtre => ' 
950 LOCATE 4,4:PHiHT" *;b4l;:INPUT ",io:IF ao<0 OB io> >BU 
2 THEH P81NT* "iGOTQ 950 ELSE LOCATE 4,4:PR1NT* ";b4l:l 
F io=0 THEH ie=15 ELSE IF id=1 THEH ie=3 ELSE te=l 
960 PEH 0:LOAD noit, 17500: PEH 1:F0B 1=0 TO ie:INK i,pe( >UZ 
1 ) , psi ( i) : WEÏT : BOEDEB bo,bol:HODE ioîLOCATE 6,11: ! FEHET 
RE,0,175O0,0:CLEAR 1HPUT:CALL 1BB06:GOTÛ 190 
970 TAGiHOVE 285,334:PRlNrr"ARCHI VES"; :TAG0FF:LOCATE 2,1 >ZU 
iPKIKT^HOH :VLOCATE 2,3:P8IHT*T , rTE :*:LOCATE 2,5rPRIHT 
■COHHEHTAIHES :":LOCATE 40, 1:PHIHT"H0DE :':LOCATE 40,3: 
30 



PBIHTBEHEFICE :• 

960 rIOVE 150,196:DRÀU 480,196:DRAU 490,84:DBAW 150,84:D >UU 

RAti 15O,196:P!0VE 154,83:DBAU 491, 83; DRAW 491,193:H0VE 4 

92,83:DBAU 482,ï93:NQ¥E 493,83:DBAW 493,193:H0VE 150.11 

3:DBAW 480 t U3:IHVE 150,140:DRAU 490,t40:H0VE 150,167:0 

RAU 490,167:HOVE 150,170 

990 DRAU 490,170:HOVE 232,196:DRAU 232,S4:flOVE 235,196: >QD 

DRAU 235,84:H0VE 320,196:DBAU 320,84:H0VE 405,196:DRAU 

405,84:H0tfE 490,196:DBAU 4S0,64:H0VE 150,196:DIAU 235,1 

70 

-JO0O TAG:GRAPHICS PAPER 0:KOVE 168, 156, 1 :PRI NT'DEBUT" ; r >ZU 
HÛVE 168,130:PB1HT-FIH«;:H0VE 168 p 104:PBIHT"TAILLE , i :H0 
VE 260,190:PfiIHT , HEIA.' , ;:HOVE 336,I90;PBIHT"DEC1HAL*;:H 
0¥E 434,19O:PRIHT , K.Q*;:TAG0FF:IF bi=l THEH 1180 
1010 LOCATE 8,1:PBIHT UPPERllnoillkLOCATE 46,l:PfiINT ■ >ZJ 
DiLÛCATE 50,3:PRIHT Cl HT(ben); •OCTETS": LOCATE fl,3:IF ty 
=0 THEH PRIHT'FEHETRE GRAPHIQUE" ELSE PRINT'PAGE ECBAN" 
102O TAG:HO¥E 2S6,15a:PRlHT "4";HEX*U1);:MDWE 336,158: )HV 
PRIHT xl;:HOVE 256,132:PRIHT ■t»;HEX*(¥AL('(i"+i2l))ï:rlO 
VE 336,132:PR1HT (¥ALCV+x2l));:r10VE 256,104:PRIHT "!■ 
;HEIt(VAL( , t , +ad2»),4ï i :ffflVE 336,104:PBIHT VAL(V+ad2* 
ï;:a*=STR*(VAL( , 4 , 4ad2*H 

1030 HOVE 420,158:PRIHT *HXim';:HOVE 420,132:PBIHT ■ M 
XmXXIVIF LEH(a*)>4 THEH b»=LEFT*{al l 2}:a=VAL(b*M 
ELSE a=l 

1040 HOVE 434,104:PBIHT a j-:TAGOFF: LOCATE Z.tSiPBIHT'Sau >BZ 
vegarde aur le fichier BIBIOTHEflUE /0/H/":al=":HHILE H 
OT{at="p' OB Bl='H"):al«UPPEH(IHŒY)}:UEIB):]F aM'N" T 
HEH 190 aSE LOCATE 2 t 5jPRIKT" COHHEHTAIRES :'; 
1050 PRIHT STRlBG»(48,32)i" ":LOCATE 16,5;1HPUT " t bt:« >VH 
IHDOU 79, 80,24, 24:CLS:PEH 0:CALL «094,17500,12540 
1060 PEH 0:LÛAD ■bibiotec.bin , ,i.8000iPEH 1 >NF 

1070 FOR i=0 TO 3840 STEP 64:a=PEEK(t8O00+l):IF a=0 OR >CF 
a-207 THEN 1080 ELSE HEIT i 

1060 noii«=UPPER*inoil*):FOR j=l TO 8:a$=HlD*(UPPFJM(no >«K 
■ 1*),J,1):IF a*=" THEN a»=CHRI(32) 

-1090 POKE ii8000+i + (j-l),ASC(a*):HE(T (iPOKE i8000+i+8,t >GL 
y:adlt=HIDI(ilt,l,2):ad4$=HIDI(ïlt,3,2):P0KE t.6000iU9, 
VAL("d'+adt»):POKE t8000+i*10 t WAL{ , l , *ad4t):ad4ï=rilD»<i 
2*,3,2):adl*=HID*(x2*,l,2):P0KE iaOOO-ti+U.VALCf-tadtt 
t:POKE t80004i+12,VAL("i , 4ad4*) 

1100 POKE tfiOOO+i+13,io:ad4t=H!D$(ad2*,3 f 2):adi*=HID*(a >BC 
d2l t l,Z):P0KE M00O*l*14,ÏM,i"i"*«ll(>:P01tE Sc8000+i+15, 
¥AL( , ( l l tad4*):F0R h-t TO 48:a*=HlD*tb$,h,l):IF a* 1 "" TH 
EH at=CHRt(32) 

1110 POKE fc8000*i+15+h,ASC(a*):NËIT h >DJ 

1120 SAVE ■bibiotec , ,B,i8000,3840:IF era=0 THEH lERA/b >HH 
iblotec.bak*:GOTO 190 ELSE era=0:GOTO 190 
1130 CLSI1:TAG:H0VE 285,334:PR1HT , ARCHIVES , ;:TAG0FF:PEH >KT 
0:LOAD , bibiotec.biir,ir600û:PEH 1: LOCATE 4,4:PR1HT"- 1 
- CONSULTER UN F!CH1ER":LGCATE 4,7:PRIHT"- 2 - EFFACER 
UN FICHIER* :LOCATE 4,10:PRIHT*- 3 - BETOUR HENU'saat^ 

1140 CLEAH INPUT:tfHILE NOTlaa^"!' OR aa*='2" OR aa»="3 >FG 
*):aa*=IHKEÏ*:WEHD:CLS;IF aal^S* THEH 190 
1150 UIMDOU U,70,8,22:CALL 19AB0:«1ND0« 8,73,8,22:g=PE >UF 
EKI(âAAF):LOCATE 2,15:CLEAR 1NPUT:PRINT" Entrez le nue 
tôt du fichier => *;:IHPUT ",a:«HILE (a<=0 OR a>():LO 
CATE 33,15:IHPUT "",a:HEHD:CLS:bi=l:IF aa*=*l* THEH 970 






1160 a=(a-l)i64:bI=0:noit-":FÛB j=0 TO 7:i=PEEK(fc8000+ >ZB 

a+j):no»»=no«t+CHB»(iï:HEIT:FOE 1=0 TO 7:P0KE It8000+a+ 

1>,207:NEÏT:FOB 1=1 TO 63.-P0KE (JflOOOtatjl^NEXTîCLSjL 

OCATE 4,6:PG[NT v Fichier ';n<M*;' efface" 

1170 PEU 0::EHA, noi**V bin":SAlfE *blbiotec',b,&B00û,384 >LU 

O^ERA/biblatec.bak'îPEN 1:G0T0 1230 

1180 a={a-lH64:bi=0:noil=":F0B j=0 TO 7:i=PEEK(lB0Q0+ >FC 

a*j):noi*=noi**CHR*-U):NEIT j:LOCATE 8,1:PE!NT (noilht 

jr=PEEK(i8000-tat8):LKATE 9,3; IF ty=0 THEN PRINT'FENETRE 

GKAPHigUE" ELSE P81NTPAGE ECRAN* 
- 1190 TAG;adlt=HEXt(PE£K(LBO00^ai9),2):ad2t=HEIt<PEEK(l t B >ZF 
000+a*10),21:ad3*=admad2»:a*.=ad3*:HQVE 2S6,15e:PSIHT a 
a";ad3»;:HQVE 336, S58:PHfHT VAL('fcM a d31) ; :adl*=HEIt(PE 
EK(i8OO0-tatU),2);ad2t=HEÏ*(PEEK(fe80OOtaU2),2):HÛVE 42 
Q,158:PRIHT "nïIin»;:«OVE 420,132 

1200 PB1HT *nïmX , ;:ad3*=adll*ad2l:H0VE 256,132:PR1NT >HB 
"l';ad3*i:HGVE 336, 132:PB1NT VAL( 1 &Vad3t>i:adlt=HEÏI(P 
EEK(bS000^14),2):ad2t=HEX${PEEK(i>8000ta^l5),2):ad3l=a 
dlt+ad2*:H0VE 256,i04:PBINT"(<*;ad3$ i :flOVE 336, 104:PR!NT 

VAL('b'4 B d3*}; 

1210 a»=STB*(VAL("&*+ad3*)klF LEN(a»)>=5 THEN b*=LEFTt >GZ 
<at,2):b=VAL<blHl ELSE b=l 

1220 MOVE 434,104:PEINT b;:uo=PEEK(fc8000*a*13):TAG0FF:L >KF 
OCATE 46,1:PR1NT io:LÛCATE 17,5:F0fi i=l TO 48:PB!NT CHB 
((PEEK{l t 80004a+15+i));:NEIT i 

1230 LOCATE 2,15:PR1NT' , <ESPACE> Pour le tenu <E >AE 

KTREI> Pour la liste des nois*:CL£AB 1NPUT 
1240 e»=lNKEY*:IF a»"" ' THEN 130 ELSE IF a*<HBÏU3) T >DQ 
HEN CLS:GOTO 1150 ELSE 1240 

1250 TAG:HQVE 280,334:PB1NT"OPERATIONS";:TAGOFF:LOCATE >KA 
6,3:PfilHT"- 1 - CALCULATBICE":LOCATE 6,5;PR1KT"- 2 - 
CONVEBTION DECIHÀL/HEÏADECIriALVLOCATE 6,7:PR1HÎ"- 3 - 

CALCUL D'UNE ADBESSE ECRAHVLOCATE 6,9 . 
1260 PEINT"- 4 - CALCUL D'ADRESSES HEH0IBE":LOCATE 6,1 >WI 
1:PBINT*- 5 - BETOUE MENU PEINCIPAL'iCLEAR lNPUT:a*=" 
:UKILE HOT(a*="l* OR al="2* OR al="3" OR a*="4" OR a*=* 
5*):a*=INKEYI:WEND:CLS:CLSIl:lF a«="2* THEN 1330 ELSE I 
F al="3* THEN 1360 

1270 IF al="4" THEN 1470 ELSE IF a*=*5" THEN 190 ELSE T >KC 
AG:"»VE 268,334:PRIWT"CALCULATRICE";:TAG0FF:LOCATE 2,1: 
PEINT bieiîLOCATE 2,3:PBIHT b3i:L0CATE 2,5:PBINT"1 - Ad 
ition":LQCAT£ 2,7 

1280 PHIHT"2 - Soustraction":LOCATE 2,9:PBINT"3 - Hulti >TB 
pllcation':LOCATE 2,li:PEINT*4 - DivissionVLOCATE 2,13 
iPElWEESULTAT DECIMAL :":LOCATE 33,13:PEIHT"BESULTAT 
HEXADECIMAL :*:LOCATE 2,1:PR1HT* ';hie*; : JHPUT ",nobrl 
»:LOCATE 2,1:PBINT' *;bl8* 

1290 LOCATE 2,3:PR1NT" ■ ;b3l; ; 1HPUT ",nobr2t:L0CATE 2, >G0 
3:PR1NT* ";b3l:a*=":CLEAB INPUT:UHILE HOT(a*="l" OB at 
="2" OS al="3" OR a»=*4*):a*=INKEY*:UEND:IF a*=»l' THEN 

res=VAL(nobrltHVALinobr2*) 
1300 IF a»=*2" THEN res=VAHnobrl*)-VAL(nobr2l) ELSE IF >BP 

a*=*3* THEN res=VAL(nobrl*)mL(nobr2») ELSE IF a$="4* 

THEN res=VAL(nobrl*t/VAL<nabr2l) 

1310 LOCATE 20,13:PBINT res:LOCATE 56, IStPEJINT^fc" ;HEXI( >ÏB 
resliLOCATE 2,15:P81NT"<ESPACE) pour le tenu 
<ENTRER> pour continuer*:aJ=":CLEÂB INPUT:MH1L£ NQTta* 
=" ' OR a*=CHE*I13)):alMHKEY*:WEND:IF at=* " THEN 190 
ELSE IF aï=CHB»(13) THEN CLS 



1320 GOTO 1270 >HD 

1330 TAG:HOVE 204,334:PBINT"C0HVERTIÛK DËCIHAL/HEIADEC1 >NC 
HAL";:TAGOFF;LQCATE 2,8:PBINT»RESULTAT DECIHAL :':LOCAT 
E 33,B:PEim-BESULTAT HEXADECIMAL :":LOCATE 2,*:PB1HT*E 
ntrez le nubre => ';:INPUT ",nobrll 

1340 IF VAL(nobrl*)>65000 THEN CLSjGOTO 1330 ELSE LOCAT >FD 
E 20,fl:PRINT VALinobrilkLflCATE 56,B:PBlMT'fc ,, ;HEï*(WAL( 
nobrlt)):LOCATE 2, 15:PRIMT"<ESPACE> pour le ienu 

<EHTRER> pour continuer" 
1350 al=":CLEAR.lNPU7:UHILE NOT(a*=" ■ OB at=CHB*(13K >FP 
:a*=IHKEY*:WEND:LF af=" ■ THEN 190 ELSE IF aMCKBtdS) 
THEN CLS:GOTO 1330 

1360 L0CATEI1, 21, 1:PRINTI1, "CALCUL D'UNE ADRESSE ECRAN* >KF 
sLOCATE 2,6;PBINT" Desirez vous apeller un écran pour d 
eteriiner les coordonnées Q/N ":a*="";CLEÀ8 1HPUT:UHIL£ 

NOTtaM'O" OB a»="N"):a»=UPPEB»(INKET*):«END:CLS:lF a» 
="0" THEN 1400 

1370 LOCATE 2,2;PRINT b6$:L0CATE 2,4:PEINT bl2*:L0CATE >AF 
2,8:PRINT"ADBESSE ECBAN :":LOCATE 2,2:PR1NT" ";b6l;:INP 
UT ",mi:L0CATE 2,2:PBINT" *;b6t:LQCATE 2,4:PE1HT* ";bl 
2*;:1HPUT "",yy:LOCATE 2,4:PRINT" ";U2» 
1380 fl:((400-(yy+l))/16kf2=FIX(fl)sil=fl-f2:GOSuB 720 )PI 
:<l*=rutfl(49152Mf2ïBO)Mf3»2048HFIX<H/8)>:LOCATE 16, 
8:PEINT"t";HEX*(VAL!*i"tïl»)):L0CATE 2,15:PRINT*<ESPACE 
> pour le «enu <EHTREfi> pour continuer* 

1390 al=":CLEAR 1NPUT:WH1LE NOTIa*=" • OB at=CHBt(13H >FI 
:at=INKEYt:UEND:IF a»=" * THEN 190 ELSE IF at=CHEt(13) 
THEN CLS: GOTO 1360 

1400 LOCATE 4,2:PBIHT" ";b9*;:INPUT ",noill:LÛCATE 4,2 >BK 
:PRINT" *;b9i:L0CATE 4,4:PBINT" ";b2*;" ":aï=*':CL£AB I 
NPUT:IMILE NOT(aï="Q" DR a*="N"):a*=UPPER*UNKEY») iHEND 
:IF a*="0" THEN 1420 ELSE LOCATE 4,4 

1410 aa=l:PBlNT b2*:L0CATE 2,6:PR1NT* ";b4«{ : 1HPUT "",■ >JW 
o:LOCATE 2,6:PBINT" ";b4l 

1420 CLSîLOCATE 25,3:PRINT"M0DE D'EHPLOl'iLOCATE 2,6:PB >IB 
INT'- DEPLACEMENT DE LA CBOII => touches de déplaçaient 

du curseur*: LOCATE 2,9:PBINT"- VALIDATION DE LA P05ITI 
OH => touche <ESPACE>*:LOCATE 21,12:PEINT*<APPUÏE2 SUE 
UNE TOUCHE>":CALL &BB06 

1430 CALL bAO94,l.75O0,&25A0:PEN 0:1F aa=l THEN aa=Û:HÛD >LT 
E miBOBDEB bo,bol:FOS 1=0 TO ie:INK i,pe(l),pel(i):NEI 
T:L0AD noall,tiC000:PEN 1 ELSE LOAD noilt,li7S00:PEN l:iP 
AGE, 17500,0 

1440 CALL L9D2A:ccc=l:G0SUB l90:ccc=0:i'PEEK(l I 9D26):xl= >PU 
PEEK('i9D27):y=PEEK(t l 9D28):yl=PEEK(l l 9D29):it=HEI*{i):il* 
=Ha*(ïU:n$=»l*+it*:iii=VALCt*tïi*):y*=HEII(y):yl*=HEI 
»(yl):yy*=yl$ty*:yy=VAL(*i"+yy*) 

1450 LOCATËt t , 21 , 1 : PK 1NTI1 , "CALCUL D'UNE ADBESSE ECRAN' >PF 
:LOCATE 2,2:PEINT b6t;u:L0CATE 2,4:PBIHT bl2*;yy:L0CAT 
E 2,8:PRIHT"ADRESSE ECBAN :":fl={[40O-<yy+l))/16>:f2=FI 
ï(fl):fI=fl-f2:G0SUB 720:ilt=HEII(49152t{f2>8û)Hf3i204 
B)+FHtii/8M 

1460 LOCATE 18,8:PR['NT*L , ;HEI*{¥AL("i."+ilt)):L0CATE 2,1 >EK 
5:PBINT*<ESPACE> pour le tenu (ENTREE) pour c 

ontinuer':at=**:CLEAB INPUT:UHILE HOTlat=* » OB a*=CHB$ 
U3)):a*MHKET$:WÎND:IF a*=" " THEN 190 ELSE IF at=CHB* 
(13) THEN CLS:GQTO 1360 

1470 TAGiMOVE 223,334:PEIHT*CALCUL D'ADEESSES MEHOIEE'î >CC 
:TAGOFF: LOCATE 4,2:PBINT"Fi»ez l'adresse inférieur et s 
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jperieur dans la bank ÛMOCATE 4,7:PEINT bl»:LDCATE 4, 
Sfmkr ";blO*;i 1HPUT ",lni*:LOCATE 4,5lPH1MT" « ( blO* 
;:LOCAT£ 4,7 

1480 PEINT" "îbUîMMPUT ",supl:PBIHT" ":CLS;LÛCATE 21 >VC 
,15:PBINT"< Entrez pour sortir > , :«IHD0« 8,73,B,20:y= 
2:F0E i=l TO 100:LOCATE 4 t y:PBIHT" ";b20*;i;" => ';:INP 
UT ",Mc*(i):IF VALllictlilXO THEN EBBQB 6 ELSE LOCAT 
E 4,y:PÏIHT" ";b20$;i;" => ■ 

1490 y=y+2:IF y=14 THEN y=2:CLS >Zfl 

1500 IF VAL(tlct(i))O0 THEN NEIT i ELSE W1ND0U 8,73,8, >DE 
22:CLS:b*=(1IO*(supl,l,l):IF M= B «' THEH IF ¥ALIinf*XO 
THEH infl=STR*(32768-IABStCINT(VAL<inf$)) 1X32768) 
1S10 IF b%='f THEN IF VALIaupiKO THEN sup*=STfil(32768 >PF 
-<ABS(CIHT(VÀL(SupI> 11X32768) 

1520 a=VAL(sup»)-VAL(inft):a$=T:b=0:lF a<=0 THEN a=16 >LR 
384:aï: , U" 

1530 FOB j=l TQ U-i):IF (NID*(f icïf j>,l, t)="V OB H1D* >CL 
(fic*<j),l,l)="«' OB HID*(f ic*<.1},l,l)= - X* OB HIDIllic* 
IJ),1,1)="Y" OB MJD*«ic*it).,.l,l)=*Z"] THEN 1540 ELSE ! 
F VAL<fic*(j)Ka THE» a-a-(VAL(f ic*<j)X2):b=b+iific*(J 
XaUficKjXIF a<=0 THEN 1=1 

1540 NEXT J:1F b<i THEN ■=163M:»*=CHM(aSC(b»)*1):1F a >J2 
*=■[■ THEN 1550 ELSE GOTO 1530 

1550 adr0=VALUnm:adrt=0:adr2=i40O0:adr3=&BO00:adr4=l 1 >AE 
CQO0:yM:ir=l: HINDOU 8,46,8,20:HGVE 580,50, 1,0:DBAW 580, 
270:HOVE S2S,270:DBAW 525,50:FOB 1=0 TO 4:H0VE 521, 50+1 
Ji55):DRAU 580,50*1 j"55) :NEIT:KQVE 515,50:DfiAU 515,270: 
HOVE 460,270:DBAU 460,50 

1580 FOB 1=0 TO 4:HDVE 456,50*1 |t55):DBAU 515, 50+ ( t»55) >AY 
:NFTT:TAG:HQVE 462,290:PBINT"BANK O^iHOllE 529,280:PRIN 
T'BAHK L a ;:HOVE 410,270: PB IKT'fcFFFF" ; :HOVE 410,215:PR1N 
T"KOOO";:110ÏE'410 t 160:P»]NT"iaOOO*::HOIfE 410,10S:PBiNT 
"M0OO";:H0VE 440,60 

1570 PRINT"M) , ;:TAG0FF:yyl=0:yy2=55:yy3=110:yy4=16S:IF >DD 
ÏALUnftXO THEN i*=U10-IABSiClNTIVALUnf*)/297.89)m 
110) ELSE ïi=ClKT<VALiinït)/297.89) 

1580 FOB )=1 TO (l-t):bi=rtiDtmc*i1),t,U:b=VAL(HID*tr >EB 
icl(j),2])+l:IF bl='V THEN bank=Û:adr=adrO ELSE IF bt= 
■H" THEN bank=l:adr=adrl ELSE IF b*=*I" THEN bank=l:adr 
=adr2 ELSE IF b»="Y' THEN bank=l:adr=adr3 ELSE IF b^'Z 
1 THEN bank=l:adr=adr4 

1590 LOCATE 2,y:P81WT'F10ilE8 Hu«.";jï" Adi.V-";HEM( >TG 
adr);" Bank , ;bank:y=y+l:b=b+l:ï=i«l:IF M="V" THEN adr 
0=adrO+b ELSE IF bt='W THEN adrl=adrl+b ELSE IF M="P 
THEN adr2=adf2tb ELSE IF bt=T THEN adr3=adr3+b ELSE 
IF b*= , Z' THEN adr4=adr4+b 

1600 flc*())=HID*(fic*(i),2):a=CINT(UL(fic*()))/297.89 >GA 
):IF b.t=*T THEN FOB h=l TO a STEP 2:HÛYE 460,50+n+h:D 
EAU 515,50+inh:NEIT:u=n+(h-l) ELSE IF bt="W THEN u 
l=yyl ELSE IF b*= , X" THEN I«l=yy2 ELSE IF b*='Y" THEH i 
il=YY3 ELSE IF b*="Z' THEN irl=yy4 

1610 IF NDTib*='V*l THEN FOB h=l TO a STEP 2:HQVE 525,5 >HA 
OUil+h:DRAM 580,50+iïl+hiHEIT:IF bl^'U" THEN yyl=yylH 
M) ELSE IF b»=T THEN yy2=yy2Xh-l) ELSE IF b*='ï" T 
HEN yy3=yy3+lh-l) ELSE iF bl="Z" THEN yy4=yy4Hh-l) ELS 
E yy4=221 

1620 IF y/4>220 THEN PEINT' FICHiEBS TBOP IHPOBTANTS. . . >N0 
!':GOT0 1640 ELSE IF 1=14 THEN UINDQU 8,73,8,22:L0CATE 
l,15:PRIHT"<Appuyez sur une touche pour obtenir la auit 
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e>':CLEAB INPUT:CALL &BB06:L0CATE 1,15:PB!HT STBINGK46 

," "):UINDOW 8,48,8,20:1=1 

1630 NEIT >LB 

1640 EBASE fict:DIH [icl(60):UIHDW 8,73,8,22:L0CATE 1, >AU 

15:P8!HT'< Appuyez sur une touche pour le tableau >":CL 

EAK INPUTiCALL iBB06:CLS:H0VE 100,290,0:DBAU 588.290:110 

VE 100,288:0SAy 588,288:L0CATE 22,2:PBINT 'ESPACE RESTA 

NT EN HEnOIRE*:tt0VE 200,100,1,0 

1650 DRAW 440,10Q:DRAU 440,220:DBAU 200,220:DBAÏf 200,10 >YR 

0:FOB i=0 TO 100 STEP 20:HQVE 200,100+i:DBAU 440,100+i: 

HEIT:HOVE 250,200:DBAU 250,10O:H0VE 3O0,20O:0BAW 300,10 

0:HOVE 204,99:DBAU 441,99:F0B 1=0 TO 2:HQVE 441+i,99:DR 

AW UXi,217:HEIT:TAG:H0VE 208,216 

1660 PBINT'EANK'iîHOlfE 258,216:PEINT'BL0C";:r!0VË 308.21 >TB 

6:PBIHT 1 '0CTETS BESTANTSVnQVE 224, 196: PS i HT"0" ; :HOVE 2 

62, 196 : Pfi I HT'ÏÏII" ; : FOR i=0 TO 3:flOVE 224,176-(ii20):Pfi 

IHT't";:HOVE 264,176-(it20):P81NT i;:HEXT:H0V£ 312,196: 

PEINT VAL<sup*)-adr0;" octets"; 

1670 HOVE 312,176:PB1NT 16364-adrl;" octets'firlOVE 312, >HF 

15G:PBINT 16384-<adr2-16384) ;■ octets';:HOVE 312,136:PB 

INT ABS(adr3)-16384;" octets";:HOVE 312,116:PBIHT ABSIa 

dr4ii" octets';:TAGOFF 

1680 LOCATE 15, lSfPBINTV Appuyez sur une touche pour I >UI 

e HENU >':CLEAR INPUT:CALL bBB06:GOTO 190 

1690 IF DEBK=146 AND EBL=1060 THEN FOB i=0 TO 59:F0B j= >JJ 

TO 7:P0KE (fcBOO0i([i64X jt,207:HEÏT f, i:era=l:i=0:BES 

UHE 1080 ELSE SOUND 1,B8,15,15:F0R 1=1 TO 160:NEXT:SuUN 

D 1,88,15,15 

1700 RODE 2:UIND0U 8,73,8,22:PAPEE 0:PEN 1:INK 0,lnO(nn >HA 

):IHK l,inlInn):BOBDEB inO(nn): LOCATE 19,4 

1710 IF ESR=6 THEN der=l ELSE IF Efifi=13 OB ERB=5 THEN d >ZB 

er=2 ELSE IF ER8=11 THEN der=3 ELSE IF EBfi=10O THEN der 

=2 

1720 IF EBB=32 THEN der=(DERB AND &7F) >EJ 

1730 IF der=l THEN PRINT'NOHBBE TROT GBAHD... !■ >TE 

1740 IF der=2 THEH Pï INT' ARGUMENT INCORRECT...!" >UB 

1750 IF der=3 THEN PRIHT'PAS DE DIVISION PAR ZERO...! 1 >BL 

1760 IF der=16 THEN PBINT'HOH DE FICHIER INCOERECT. . . !" >CU 

1770 IF der=lB THEN PRIHT'CE FICHIER H'EKISTE PAS...!' >AQ 
1780 IF der=19 THEN PBINT'CATALOGE SATUBE SAUVEGARDE IH >ÏT 
POSSIBLE...!' 

1790 IF der=20 THEN PBINT'DISQUETTE PLEINE SAUVEGABDE I >ÏG 
HPOSSIBLE...!' 

1800 IF der=66 THEN PR INT' ECRITURE IMPOSSIBLE DISQUETTE >IU 
PROTEGE...!" 

1810 FOB i=l TO 4000:NEn l:CLS:cc=0:ccl=O:ec=û:PEN 0:P >EA 
R1NT FRE("):RESUHE 190 

1820 DATA 0,25,3,2,17,13,22,5,14,19,26,24,1,6,11,23 ■ >0H 
1830 DATA 13,0,12,0,16,0,14,0,15,0,0,14,0,17,0,22,0,15, >ZD 
0,16 

1840 TAGiKOVE 262,334:PRINT"NETT0TAGE BASIC";:TAGOFF:LO )JF 
CATE S, 4 : PHI NT" INTRODUISEZ LA DISQUETTE CONTENANT LE PB 
OGEAHHE 'CQRPACT-":LOCATE 32,7:PBINT , ET':L0CATE 22,10:P 
BIHT'APPUÏEZ SUE UHE T0UCHE":CLEAB 1HPUT:CALL i.BB06:HEH 
OSÏ &9B0Û:CLEAB 
1850 POKE U36F,101:RUH 'coipactl.bin' )KB 
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Nous nous proposons de demander à AMSTRAD-3D 

de pouvoir nous fournir deux types d'images : «fil de 

% fer» et «parties cachées éliminées». Dans notre chaîne 

de traitement la seconde tâche sera prise en charge 

par une section intitulée SUPERDES. 




On accédera à SU PERDES à tra- 
vers la section DES où s'opé- 
rera la saisie du point de vue 
et le calcul des paramètres de visée, 
matériel qui pourra être utilisé Indiffé- 
remment dans DES et dans SUPERDES. 
Il faut en effet éviter d'avoir trop de 
sous- programmes «en double» à 
cause de la place disponible sur la 
disquette, car nous touchons Ici aux 
limites des possibilités de la machine. 
Nous allons donner ici une version 
très abrégée de DES (en fait avec le 
minimum de matériel) permettant de 
créer une Image à partir d'un objet 
résidant en mémoire centrale. 

La section de MOD1 est une ver- 
sion minimale, permettant de créer 
des objets quelconques au clavier et 
de les stocker. Nous allons créer l'ob- 
jet suivant. Il s'agira d'un simple car- 
ré d'axe OZ, situé dans le plan XOY. 




Et nous verrons plus loin pourquoi. 
La création de cet objet correspond 
à la procédure suivante (les ordres au 
clavier sont en caractères gras) : 

RUN"MODI 

a-Créer un objet 

a-Chaîne par chaîne 

a-FII de fer 

a-Salsle clavier 

Nombre de segments ? 6 

Arêtes virtuelles en début de chaîne. 

Leur nombre ? 

Point numéro 1 

XT=?-3 

VT=?-3 

ZT-?0 

Point numéro 2 

XT=?-2 

YT=?-3 

ZT=?0 

etc. 

Pour ceux qui n'ont pas l'habitude, 
la succession des coordonnées des 
points chaînés est donnée ci-après : 



: 



Nous allons «segmenter» les arêtes 
de ce carré. Celui-ci sera constitué 
de quatre chaînes rectillgnes. 



Vous stockerez cet objet en l'ap- 
pelant CARRE. 



COMMENTAIRE SUR 

CETTE PREMIERE 
APPROCHE DE DES 

• On a ajouté une ligne permettant 

d'opérer le chaînage : 

215 IF C=12 THEN CHAINEES 

On passe donc sur la section DES 
en conservant les fichiers de travail. 
La section commence par une ligne 
5 qui interdit son accès direct et oblige 
à transiter par MOD1 . Le MENU est évi- 
demment Identique à celui de MOD1 . 
L'option : 
l-Représenter un objet 

envoie à l'adresse 27000. Les lignes 
2701 5 et 2701 7 sont en rapport avec 
l'élimination des parties cachées. On 
se contentera Ici d'y répondre par la 
négative et on se limitera à la sous- 
optlon : 
a-Objet en mémoire. 

Dans ce cas l'appel au sous-pro- 
gramme 30000 examine l'objet rési- 
dent, avec ou sans nom, puis il y a 
sauta la ligne 27 140 ou s'effectue la 
saisie des coordonnées du point d'ob- 
servation (registres XM.YMZM) et du 
point visé (registres XG.YG2G), ainsi 
que de l'ouverture angulaire (regis- 
tre AN). On ne décrira que la saisie 
au clavier. Un nouveau court-circui- 
tage de lignes envoit (ligne 27350) au 
sous-programme 7000 qui calcule les 
paramètres de la visée, c'est-à-dire 
ce qui sera commun dans le calcul 
de tous les points Images. La leçon 
précédente explique dans le détail 
ce que sont ces valeurs : 

xu yu zu 



La ligne de dispatching 

27360 ON CD GOSUB 12000, 11000, 
10000 



envoiG à différents sous- programmes 
selon le type de dessin, Ici nous ne 
considérerons que le dessin d'un ob- 
jet présent en mémoire (sous-pro- 
gramme 1 2000). Ce sous -programme 
est très simple et se contente d'explo- 
rer l'objet, chaîne par chaîne (Indice 
I allant de O à L), point par point 
(indice J allant de O à N(l). Le sous- 
programme 15000 est appelé pour 
chaque point et effectue le calcul des 
coordonnées écran (XE.YE). La leçon 
précédente donne toutes les explica- 
tions sur cette manipulation de regis- 
tres. 

En fin de dessin on a une boucle 
d'attente en 27390. Tant qu'une tou- 
che n'est pas pressée l' AMSTRAD émet 
un signal sonore, prévenant ainsi qu'il 
a achevé le travail (signai dont vous 
pouvez vous passer en manipulant le 
potentiomètre situé au verso de l'ap- 
pareil). 

On remarquera au passage les li- 
gnes : 

1 5260 IF J = AV(I) THEN PLOT XE.YE 
15270 IFJ >AV(I) THEN DRAWXE.YE, 1,0 

AV (I) représente le nombre d ' arê- 
tes virtuelles . Celles-ci ont déjà été 
évoquées à l'avant-dernière leçon. 
Lorsqu'on souhaite éliminer les parties 
cachées par des facettes il est néces- 
saire que celles-ci soient des contour 
polygonaux fermés et convexes . 
Cette technique de la décomposition 
à l'aide d'arêtes virtuelles a été pré- 
sentée formellement dans la leçon 
intitulée :«Approche du problème de 
l'élimination des parties cachées. 
Structure de données». Selon les lignes 
ci-dessus on volt que lorsqu'il y a des 
arêtes virtuelles, c'est-à-dire lorsque 
AV(I) est non nul, celles-ci seront igno- 
rées au traçage, alors qu'elles réap- 
paraîtront lorsque nous mettrons en 
jeu l'algorithme du peintre. 



CREATION D'IMAGES 

• Nous allons profiter de l'occasion 
pour illustrer l'effet de la segmenta- 
tion des arêtes. Le but est évidemment 



Figure3. Prt 



e du «cloître». 



de faire des images les plus fidèles 
possible. Je me souviens d'une équipe 
d'informaticiens qui travaillaient sur un 
gros système près d' Alx-en-Provence 
et dont le job consistait à faire des étu- 
des d'implantation d'autoroutes (qui 
sont des objets que l'on représente 
en général tels que pris au téléobjec- 
tif, c'est-à-dire avec de faibles ouver- 
tures angulaires). Ils avaient voulu un 
jour mettre en mémoire le cloître 
roman d'Aix-en-Provence pour en 
faire des dessins. Celui-ci est très beau 
mais relativement petit. Le visiteur ne 
peut donc pas bénéficier de beau- 
coup de recul pour le voir. Un photo- 
graphe dirait qu'il lui faut travailler au 
grand angulaire et un Informaticien 
que ceci correspondrait à des valeurs 
élevées de l'ouverture angulaire AN. 

Bref les gens de ce centre avaient 
fait des Images de ce cloître qui ne 
les satisfaisaient pas. Ils avaient tra- 
vaillé consciencieusement et relevé 
les points avec précision, mais le ré- 
sultat n'était pas bon et personne ne 
comprenait pourquoi. Pour illustrer 
mon propos j'ai remplacé les belles 
colonnes romanes dudlt cloître par des 
parallélépipèdes rectangles nette- 
ment moins élégants, mais cela suffit 
néanmoins pour réaliser, comme feu 
Femand Reynaud «qu'il y a comme 
un défaut». Cela vient du fait que si 
les images des sommets des parallé- 
lépipèdes et des facettes sont exac- 
tes, les images des arêtes sont faus- 
ses, simplement parce que l'Image 
d'une droite, en vision grand angu- 
laire, n'est pas automatiquement une 
droite. 



Prene2 par exemple l'objet CARRE 
que nous venons de créer. C'est un 
carré situé dans un plan horizontal. 
Nous allons créer des images de ce 
carré à partir de points situés sur l'axe 
OZ, à partir «d'altitudes» décroissan- 
tes. Plus nous nous rapprochons de cet 
objet et plus il faut accroître l'ouver- 
ture angulaire pour conserver celui- 
ci dans le champ. En même temps 
les côtés du carré semblent s'incur- 
ver. On appelle ce phénomène 
l'aberration en barillet. 

Procédure de création de l'image 4a : 

RUN"MODl 

d-Charger un objet 

Nom de l'objet:? CARRE 

l-Représenter un objet 

Parties cachées éliminées ? N 

a-Dessin en mémoire 

a-Saisie de point de vue au clavier 

Coordonnées observateur ; 

X>?0 

Y = ?0 

Z = ?20 

Coordonnées point visé : 

XG = ?0 

YG = ?0 

ZG = ?0 

Ouverture angulaire 

20 degrés par défaut ? 48 

Signal sonore en fin de dessin. In- 
terruption par <Retum> exclusivement. 
SI vous Interrompez par une pression 
de la barre ceci tentera d'activer une 
routine machine A000 qui correspond 
à la recopie d'écran. Or celle-ci n'est 
pas encore présente. Nous complé- 
terons dans une leçon ultérieure. 
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Figure 5. L'image d'un tunnel rectiligne à 
avec aberration en barillet. 

SI les gens du centre informatique 
avaient pris la précaution de segmen- 
ter suffisamment les génératrices des 
cylindres figurant ies fûts des colon- 
nes iis auraient pu voir celles-ci se 
courber également, 



cet angle se ferme un tant soit peu, 
on fragmentera le segment AB en 
deux ou plusieurs morceaux 1 . Le lec- 
teur volt bien que cette opération n'a 
rien de très compliqué a priori. Or ce 
gadget n'est pas en général présent 
sur les gros systèmes de synthèse 
d'image. SI vous regardez avec at- 
tention les virevoltes d'objets calcu- 
lés aux grands angles et présentés à 




Figures 4a à 4c. Images successives du 
Apparition de l'aberration en barillet. 



Dans l'Image suivante on a dessi- 
né d'un tunnel prismatique formé par 
des carrés joints par des arêtes recti- 
lignes segmentées. Celui-ci est créé 
avec une ouverture angulaire de AN 
= 30°. On voit nettement les «poutres» 
et les arêtes de ce tunnel s'incurver 
par effet d'aberration en barillet. 



Figure 6. L'image du «cloître» avec 
aberration en barillet. 

Il est assez facile de négocier cette 
affaire automatiquement. Imaginons 
un segment AB. On s'arrangera pour 
que le programme calcule les ima- 
ges a et b des points A et B, ainsi que 
l'Image m du point M, milieu du seg- 
ment AB. Il suffira de calculer l'angle 
formé par les segments ma et mb. Si 
cet angle est proche de 1 80° on lais- 
sera le segment AB tel quel. Mais si 



la télévision, vous pourrez vous en 
rendre compte de visu. 

Nous essaierons de négocier cette 
affaire dans une prochaine leçon. 



1 . On peut soit indexer la fragmenta- 
tion sur la valeur de l'angle, soit utili- 
ser une procédure récursive, c'est-à- 
dire rééditer l'opération avec les deux 
moitiés créées, etc. 



Jean-Pierre Petit 









DES 



i REM fsuperlDES LEÇON CFCS22 > 

2 IF FD=1 THEN 230 > 

5 SOUND 1,20: CLS:PS]NT"Pas d'accès direct a DES":PRINT > 
:PRINT'Je vous renvois sur HDD1-. .":RUH-HQD1" 

10 BORDER 26iRND:CLS : REM MENU FRINCIFAL > 

15 PH1HT"HENU PRINCIPAL" iFRINT > 

20 PRINTVCieer un oblef ) 

30 PBIHT"b-CûiBleter obiet uu bloc" > 

40 PRINT'c-Stocker un objet* > 

50 PRlNFd- Charger objet* > 

GO PRINTVGestion de blocs d'obiets" > 

70 PRIKT'f-Gesliûfi du BatateRue" > 

80 PRIKTVManipuler objet un bloc" ■ > 

90 PRJNT'ti Fusions divetses" > 

100 PRlNT'i-ExaBiner oh jet" > 

1)0 PRINT'i-Fichier objets gtandaids" > 

120 PRlNT"k-voic' > 

130 PRIHT"! Représente! un ûbief > 

140 PRlNT'i-Plan trois vues* > 

150 PRINTVInverser ohjet ou bloc" > 

1G0 PRINT'o-Chaiijier type objet ou bloc" > 
170 PRIHT'p-Chailfer de drive" 

iflO PRINT'q -Quitter» ) 
190 IF BL»0" THEN L0CATE 22, 17:PR1NT*B1ûc resident":L > 
0CATE 22,19:PRINT BL* 

192 LOCATE 25,2 : PRINT*SUPERAHSTRAD-3[)" > 

193 LOCATE 29.4 :PRTNT CHR*IfG4) ; m 1. P. PETIT" ) 

195 IF EL* <> "' THES LOCATE 22,2l:PRINT"0b1et reaident > 
VLOCATE 22,23:P8IHT EL* 

196 LOCATE 32,10:PRlNT"Drive VDRIVE* i 

197 IF KM THEN LOCATE 31.23:PRINT L*t;" ch. VLOCATE > 
22,25:PS1NT TYPE* 

19B LOCATE 1,22 ) 

200 GOSUB 65000 ) 

203 IF C-15 OR C = 14 THEN CHA!N"H0D2 ) 

210 IF C=17 THEN END ) 

212 IF C-14 THEN 10 J 

213 IF C=15 THEN 10 

220 IF Ca OR C>17 THEN 10 ) 

225 IF C = 16 THEN GOSUB 17OO0:G0T0 10 ) 

230 «ODE li ON C GOSUB 64000.64000,8000, 5000.64000.6 ; 

4OO0,G3OOO.G3OO0,64O0O.640O0.13000.27000.340OO 

240 lËRA.TBAK" 

999 GQTO 10 

3000 REH DESSIN ELEVATION POUR SAISIE Z I 



3999 RETURN >HD 

4000 REH SAISIE (VERTICALE) POINT SUR ECRAN )HX 

4999 RETURN >HE 

5000 REH Charger objet >RE 

5001 CLS: FI = 1 :REK FLAG NON TRACE >BJ 
5005 PR!NT:PRINT"Charger obiet (disquette obiet !...)": >WH 
PRIHT 

5007 lNPUT'Nai de l'objet 'lELtlK) )GK 

5010 PRINT"Je charge VELKK) >AA 

5020 IF DRlVE2=t THEN !E >TY 

5022 DPEN1N ELMKÎ >HD 

5025 EL»=EL*(K> >XJ 

5030 INPUT I9,TYPE(K).GX(K) T GY(K).GZ(K!.RE(K).L )RJ 

5040 FOR I = TO L >FC 

5050 INPUT IA.WUJiVUI ÏTD 

5060 FOR J = TO NI 13 >MC 

5070 INPUT I9.XTU.J).YT(I.J).ZT(I.J) >FE 

5075 IF FI = THEN GOSUB 15000 >UN 

bOtiU NfcïT J:NLXi 1 >HV 

5090 CLOSEIN >BE 

5095 TYPE*=TYPE»(TYP£(K));TYPE=TYPE(K) >KC 

5100 FI = : REH REAHHER FLAG >«T 

5998 !A >ÏF 

5999 RETURN >HF 
7000 REH CALCUL PARAMETRES VISION )CD 
7090 CX = ÏG - ÏH : CY = YG - YH : CZ = ZG - ZR >EV 
7100 OD « SUR (CX»CX + CY*CY ) >VF 
7110 IF DO = AND CZ > THEN TE = : Kl = PI / 2 ; G >UU 
OTO 7210 

7120 IF DD = AND CZ < THEN TE = : Kl =-Pf / 2 : G >VJ 
OTO 7210 

7130 Kl = ATN (CZ/DO) >NJ 
7140 IF CX = AND CY > THEN TE = 1.57 : GOTO 7210 >LQ 

7150 IF CX = AND CY < THEN TE =-1.57 : GOTO 7210 >HU 

71G0 TE = ATN (CY/CXI >NH 

7170 IF CX < AND CY > THEN TE = PI + TE >CK 

7180 IF CX < AND CY < THEN TE = PI 1 TE >CJ 

7190 IF CX < AND CY = THEN TE = PI >ZN 

7200 IF CX = AND CY < THEN TE = - Pl/2 >CT 

7210 REH )AB 

7220 REH >AC 
7230 CT = 
7240 CK = 
7250 XU = 
7260 XV = 
7270 XU = 



= COS (TE! : ST = 5IN (TE) 
= COS (Kl) ; SK = S1N (Kl) 
= CKiCT ; YU = CK»ST ; ZU=SK 

- ST ; YV = CT i ZV = 

- SK'CT : TU = - SK*ST ; ZU = CK 
7999 RETURN 

BOOO CHAIN"M0D1 

10000 REH dessin par bloc 

10999 RETURN 

11000 REH DESSIN PAR ELEMENTS 

11999 RETURN 

12000 REH Dbiet deia présent en tendre 

12001 F1=0 

12005 IF L=-l THEN CLS:PRINT"Paa d'obiet en moire, 
, farceur !": SOUND 1,50 :FOR TT=L TD 1000: NEIT TT : 
TO 10 
12010 GOSUB 6200O 



12020 FOR l = TO L >LH 

12028 FOR J=0 TDIK1] >NA 

12030 GOSUB 15000 >LH 

12040 NEXT J:NEXT I >NZ 

12999 RETURN >PC 

13000 REH Voir >WB 
13999 CHAIH-VDIR" )H8 
15000 REH Calcul et trace iiage >ZC 
15040 XL=XT([,J)-XH >PP 
15050 ÏL=Trtl,J)-ïH >PU 
15060 ZL=ZTU,J)-ZH >PY 
15090 XA=XLHU»YLiYU+ZLiZU >XI 
15100 ÏA=XL»IV+TL*ÏÏ4ZL<ZV >IT 
15U0 ZA=XL*IW+YLiYlf*ZLiZU >ÏY 

15121 IF XA=0 AND YA=0 AHD ZA=0 THEN ZA=0.001 >KJ 

15122 RO = SQR(YA»YAtZA»ZA) >VF 

15125 IF XA=0 THEN B=9O:G0T0 15127 >AT 

15126 B=ATN(H0/XA):8=BH8Û/PI >ÏD 

15127 IF XA<0 THEN B=B»180 >TK 
15130 IF ÏA=0 AND ZA=0 THEN A=8Û:G0TQ 15180 >J6 
15140 IF ZA=0 AND VA >0 THEN A=-9O:G0T0 15180 >KN 
15150 IF ZA=Q AND ÏA(0 THEN A=90;GQTO 15180 >JC 
1S160 A=-ATN(YA/ZA):A=A*iBÛ/Pl >YZ 
15170 IF ZA<0 AND ÏA )0 THEN A=A-18Q >AD 
15172 IF ZA <0 AND YA<0 THEN A=AUaO >AJ 
15174 IF ZA <0 AND ÏA S THEN A^180 >2N 
15180 I=BiSlNlAiPI/180):ï=8iCGS(AiPI/lB0) >KF 
15240 ÏE=313tXi200/AN >P* 
15250 YE=2(XHY*2Q0/AN >PH 
15255 IF HE- 1 THEN 15999 >HB 
15260 IF J=AV(I) THEN PLOT XE.YE >ZW 
15270 IF J>AV(D THEN DRAU XE.ÏE.l.O >CE 
15989 RETURN >PF 

16999 RETURN >PG 

17000 REH Changer de drive >UZ 

17999 RETURN >PH 

18000 REH charger eleients >UH 
1B999 RETURN >PJ 
23000 REH TRACE QUADRILLAGE XOY >AX 
23999 RETURN >PE 
27000 REH REPRESENTER UN OBJET >ZR 
27005 CLS:PARCACH=0: INTERACTIONS >DH 
27010 PRINT'REPRESENTER UN ÛBJETVPRINT >LT 
27015 PRlNT'Parties cachées eliiLnees ?":GOSUB 65020:1F >AH 

C=1S THEN PARCACH=1 ELSE 27020 

27017 PRINT:PRlNT'lnteraction facettes ?":GQSUB 65020:1 >ZK 
F C=15 THEN INTERACTIONS ELSE INTERACTIONS 

27020 PRINT:PRlNT"a-Obiet en ■eioire* >NN 

27030 PRlNT'b-Desstn car eleients' >LH 

27040 PRINT"c-Deasin par blocVPRINT >LC 

27050 GOSUB 65000 : PRINT : CD=C > ÏQ 

27052 IF PAICAOM THEN CHAIN'SUPERDES >HB 

27055 !F C = 1 AHD L <> -1 THEN 27140 >ÏU 

27060 IF C=l THEN GOSUB 30000 :E=0: GOTO 27140 )KB 
27070 IF C = 3 THEN GOSUB 31000:CLS: PRIHT'CONTENU BLOC >JN 

:.»:PHINT: FOR K = TO E : PRiNT ELIIK),TÏPE*(TÏPE(K) 
):fOR TT=0 TO 100 :NEÏT TT : NEXT K : FOR TT = TO 100 

: NEXT TT :GOTO 27140 

27080 INPUT'Nûibre d'eleients 11 par défaut) ";E* >DW 

40 



>NQ 



>KG 
>NB 



27082 IF E*=" THEN E=0 

27064 IF E»<>" THEN E=¥AL(E»)-1 

27090 CLS : PRINT'SAJSIE ELEHENTSVPRINT 

27100 FOR K = TO E >LH 

27110 PRINT'Eleient ':K H >KK 

27120 INPUT ai(K) >HW 

27130 NEIT K >BJ 

27140 IF AN - THEN 27160 >W 

27160 CLS : PRINT'a-Saisie point de vue au clavier" >GN 

27170 PRlNT'b-Saisie écran U) n :PRlNT:G0SUB 6500Q;CSAIS >HA 

IE=C 

27180 IF CSAISIE = 2 THEN 27310 >UL 

27190 PRINT:PRlNT"Coordonnees observateur :VPR1NT >HK 

27200 iHPUT"ï="iXH >NH 

27210 MVUPPMH. 

27220 INPUT'Z--";ZH:PRINT 

27230 PEINTToordonnees point vile :":PRINT 

27240 [NPUrïG=";XG 

27250 1NPUT"YG=";YG 

27260 lHPUT'ZG=*iZGiP8INT 

27270 PBINT"Duverture angulaire" 

27260 IHPUT'20 degrés par défaut ';ANi 

27285 IF AN*="" THEN AN = 20 : GOTO 27350 >DH 

27290 AN=VALlAN»):GÛTO 27350 >«L 

27310 REH >GA 

27320 REH SITUER DECOR >RX 

27325 CLS >GE 

27330 GOSUB 35000 >LZ 

27340 GOSUB 61000 >LZ 

27341 XGO=XG:ÏGO=YG:ZGO=ZG >XF 

27342 XG= XGO * (XGE - 300) < R / 30 >UF 

27343 ÏG= ÏGO + 1YGE - 200) * R / 30 >UJ 

27344 XH= XGO * ISHE 300] « R ! ÏQ >iitf 

27345 ÏK= ÏGO + (ÏHE - 200) i R / 30 )WZ 

27346 ZG= ZGO * (ZGE -200) « R /30 )UD 

27347 ZH= ZGO + IZHE -200) < R /30 >UT 
27350 CLS : GOSUB 7000 >Pi 
27360 ON CD GOSUB 12000,11000,10000 >AL 
27390 C*=INKEÏI:IF C*="" THEN SOUND 1,300:GOTO 27390 >UR 
27400 IF «=• " THEN CALL &A000:PH!NTI8:PRINTI8 >PP 

27998 CD=0 >LJ 

27999 RETURN >PJ 

28000 REH Charger bloc >0B 
2B999 RETURN >PK 

30000 REH objet en leioire ? >UH 

30001 Fl=l >JG 

30002 IF L <> -1 AND- EL* =*" THEN PRlNT"0bfet sans n >GT 
ai présent en ■eiolre":PRINT:PRlNT"ûn garde ?":GDSUB 65 
020: IF C = 15 THEN 30999 

30010 IF EL* <> " THEN PRlNT'Obiet résident ";EL* >DZ 
:P8INT:PRINT"0n garde ?■: GOSUB 65020 

30020 IF EL» <> " AND C = 15 THEN 30999 >BE 

30030 PRINT'Pas d'objet en ieioire. n :PRlNT >VG 

30035 PRINT"Hettre disquette obiets dans le lecteur. ":G >ET 
D5UB 65020 

3004Û GOSUB 5005 >DB 

30998 PHINT*Hettre disquette logiciel dans lecteur. ":G0 )DZ 
SUB 65020 

30999 RETURN >PC 






31000 BEN BLOC EN HEHOIRE ? 

31999 BETURN 

32000 BEH SAISIE ECRAN 

32999 BETURN 

33000 BEH TBACE QUADRILLAGE ÏOZ 

33999 BETURN 

34000 BEH SITUES DECOB 

34999 RETURH 

35000 BEH SITUER DECOS 
35999 BETURN 

30000 REH TBACE CBOII 

36999 RETUfiN 

37000 BEH EFFACAGE CROIX 

37999 BETUBN 

38000 BEH SAISIE NUHEBIQUE 

38999 BETUBN 

39000 BEH SITUEB DECOB vue elevatioi 
39999 BETURN 

409S9 BETUBN 

41000 REH EFFACAGE LIGNE DU HAUT 

41999 RETUfiN 

44000 BEH Calcul de CG et de BE 

44999 RETUBN 

47000 BEH permutation cyclique pages 

47999 BETURN 

59000 REH SAISIE POINT SUfi ECRAN 



)RQ 
>PH 



>QA 



59999 RETUfiN 

61000 REH SAISIE POINT SUR ECRAN 

61999 RETUBN 

62000 REH CADRE 
62010 CLS 
62015 BOBDEB 14 
62020 PLOT 0,0 
62030 DRAW 639,0,3 
62040 DRAW 639,399,3 
62060 DRAW 0,399,3 
62060 DRAW 0,0,3 

62999 BETURN 

63000 BEH Passage en HQD2 
63990 CHAlN"H0l)2" 

64000 REH Passage sur HQD1 

64999 ChAlN'HÛDl* 

65000 REH Saisie caractère 
65005 PRINT 

65010 PRINT'Yotre choix :" 

65020 C*=":CI=INKEÏ*:IF C*=" THEN 65020 

65030 C^ASCICI) 

65035 IF C=13 OR C= 32 THEN C=27:GÛT0 65535 

65040 IF C>96 THEN C-C-96:G0T0 65535 

65050 IF C<96 THEN C=C-64 

65060 SOUND 1,20,1 

65535 RETUfiN 



>AC 

>PG 



M0D1 



1 HEH (supenNODl leçon JAN 88 ? > 

2 IF FD=1 THEN 230 > 

3 FD=l; L « - 1 > 

4 D1H XT(35,12),YT(35,12],ZT(35.12),N(35),AY(35),ELiU9 > 
),TYP£(19),GI(19),Gm9),GZ(19),RE(19>,XEU2),YE(12),X£ 
B1S(12),YEB]S(12),ST*<19) 

5 TÏPE*{l)= , fil-de-fer fl :TÏPE*(2)= , Rraffiti":TYP£*(3)^"c ) 
oque":TYPE*(4)="solide" 

10 CLS > 

15 PRIHT-HENU PB INC] PAL" :PH!NT > 

20 PHINT'a-Creer un obiet" > 

30 PRINT"b-Coipleter objet ou bloc" > 

40 PB I NT- c- Stocker un objet» > 

50 PBINT*d-Char|er un obiet" > 

60 PB iNT-e -Gestion de blocs d'objets" > 

70 P81HT*f -Gestion du catalogue 1 > 

80 PBlNT'g-Hanipuler objet ou bloc" > 

90 PRlNT'h-Fusions diverses" > 

100 PfilNT"i-£»a«iner objet" > 

110 PRlKT'i-Fichier objets standards" > 

120 PRIN7"k-Yoir" > 

130 PRINTM-Representer un obiet» > 

14U PRINT"i-Plan trois vues" ) 

150 PBJHTVtWeJfSe* objet uu blmf > 

160 PHINT"o-Chanaer type obiet ou bloc" ) 

170 PRIKT'p-» > 

180 PRlNT'q-Quitter" 1 

190 IF BL*<>" THEN LOCATE 22.17:PRlNT"Bloc resident":L ï 
OCATE 22.19:PHINT BU 

192 LOCATE 25.2 : PR1NT"SUPEBAHSTRAD-3D" S 

193 LOCATE 29.4 :PRINT CKRK164);" J. P. PETIT" ) 

195 IF ELI O «» THEN LOCATE 22.21:PRINT"0biet résident ) 
•:UKATE 22,23:PRINT EL» 

196 'LOCATE 32, 10:PRINT"Drive ";DB1VE* ) 

197 IF LO-1 THEN LOCATE 31,23:PRI*T L+l;" ch.VLOCATE > 
22,25:PB1NT TYPE* 

198 LOCATE 3. 22 > 
200 GOSUB 6S0O0 ) 
210 IF C=17 THEN:END > 
215 IF C»12 THEN CHAIN'DËS 5 
220 IF C<1 Ofi C)i7 THEN 10 > 
230 ON C GOSUB 9000,13000,6000,5000,21000,22000,64000.6 ) 
4000,10000,20000 

999 IEBA,"«.bak":GÛTQ 10 ) 

5000 'CHABGER OBJET ï 

5005 CLSiPRINT'Charser objet (disquette obiet !...)":PR J 

[HT 

5007 INPUT"Noi de l'objet ";ELt(K):IF LEN <EL*IK))>8 TH ! 

EN PRINT"8 caractères seulement, presse2 (Retum)":GÛSUB 

65020: GOTO 5000 

5010 ELI-EL*(K):PR!HT"Je charge ';EL*[K) J 
42 



5020 OPENIN ai(K):ELt=EU(K) > 

5030 INPUT I9,TYPEIK) 1 GX(K),GY<K).GZ(K),R£(K).L > 
5040 FOR I = TO L > 

5050 INPUT I9,NU),AV<[) > 

5060 FOR J = TO NU) ) 

5070 IMPOT I9,XTU,J),YT(1,J),ZT(I,J) > 

5080 NEIT J:NEXT i > 

5090 CLOSE IN > 

5095 TYPE»=TYP£»iTYPEfK) ) :TYPE=TYPE(K) ) 

5999 RETURN > 

B0O0 'STOCKER OBJET > 

8001 CLS:PBINT"STOCKER UN OBJET (disquette objet !..)": > 
PBINT:1F L=-l THEN SOUND 1, 30, 20 : PB 1 NT" Pas d'objet resi 
dent !":F0B TT=0 TO 2QQ:NEXT::G0T0 3999 

8002 !NPuT"Noi de l'objet ";EL*(K):1F LEN lEL*(K))>8 TH > 
EN PBINT:PRINT"B caractères seulement. pressez <return>" 
:G0SUB 65020: GOTO 8000 

8007 ELl=EU(K) > 

8006 CLS:Pfi[NT"Tvpe de i'obiet":PRINT:PBINT"a-Fil-de-fe ) 
r":PBINT"b-Gra[(iti":PRINT"c-Coque":PRlNT"d-Solide"iGOË 
(IB 65000:TYPE(K^C:TYP£*=ÎYPE»(C) 

801OPRINT"Je stocke l 'objet ";EL*<Kls" " ;TÏPE*(TYPEtK) ) 
) 

8020 GOSUB 44000 ï 

8022 'IF TYPE(K)=4 THEN GOSUB 38000 > 

8025 OPENOUT EL*(K) ) 

8030 PR1NT »9,TYPE(K),GX(K).GY(K),GZ(K).RE(K),L > 
8040 FOB I » TO L > 

8050 PRINT i9.«(l!,AÏ(n > 

8060 FOR J = TO NU) > 

8070 PRINT t9.XTi],J),YT(l,J),ZTll.J) > 

8080 NEIT J : NEXT I > 

8090 CLOSEOUT > 

8100 EL*=EL*!K) > 

8999 RETURN ) 

9000 'CREER UN OBJET > 
9005 L^-l^KttïELKKl^'îELM^TYPE*:"" > 
9010 CLS:PRINT"CREEfi OU COMPLETEE UN OBJET»:PBINT:PBINT ) 
"a-Chaine par daine" 

9020 PBINT"b-ObJet de révolution" } 

9040 PRiNT'c-Travailler sur obiet standard" > 

8050 PRINT"d-Prisie" ) 

9060 PRINT-e-Cercle" ) 

9070 PBINT"f-Arc de cercle" > 

9090 GOSUB 65000 ' > 

9095 C1=C > 

9100 IF C>6 OR C =-51 THEN 9999 ) 

9102 IF C<0 THEN 9000 > 

9104 CREATIONS > 

9106 IF TYPEIK1O0 THEN TYPE=TYPE(K):PB[NT:PHINT"L'ob)e > 
t est de type ";TYPEÏ(TYPE(K)):FOB TT=Û TO 1000:NEXT n 
:G0TO 9110 

9108 CLS:PRINT"Deftnir le type de l'obJet:":PBINT:Pfi!NT > 
"a-Fil -de-fer" :PRlNT , b-Graffiti':PHINr , c-Coque , :PBINT"d 
-Sol ide":GOSUB 65000:TYPE(K)=C:TYPE*=TYPE*<TYPEi):) ) :TYP 
E=TYP£(K) 

9109 IF CREAT10NH AND CREATI0N<7 AKD TYPEOl AND TYPE< > 
)2 THEN CHA1N"H0D1BIS 

9110 IF CREAT 10NO THEN 9500 > 



9120 IF TYPE=i THEN 9500 >RU 
9500 Oh CREATION GOSUB 26000,34000,11000,54000,32000,33 >AH 
000 

seaa return >hk 

26000 'CREES CHAINES AU CLAVIER )DD 

26010 GOSUB 60000 >LQ 

26017 (F CE ' 2 THEN GOSUB 14000:GGTO 26999 >HE 
26020 L=LUilF L>12 THEN CLS:PRINT'Trop de chaînes...": >UD 
SOUND i, 20: FOR TT=0 TD 1000:NEïT TT:GOT0 26999 

26025 CLS: PRINT'SAISIE CHAINES AU CLAVIER'.-PRINT >XS 

26030 iNPUT"Noibre de segients ";N(D >MI 
26035 PRINT:PGINT"AretË9 virtuelles en début de chaîne. >AP 
■:PRINT:INPUT"Leur noibre ";AV»:PRINT:IF AV*=" THEH AV 
(L)=0 ELSE AV{D=VAL(AV»! 

26040 FOfi J=0 TO NIL) >NC 

26050 PEIHT-Point nu»ero ";JH >DE 

26060 ]HPUT'ÏT=";ÏTIL,J) >UK 

26070 lHPUT , n=";ÏT(L,J) >UN 

26060 IHPUT"2T=";ZT(L,J) >UR 

26090 HEÏT J >CB 
26100 PRINT' Une erreur ?":LC=2B: GOSUB 650 >kl 
20:1F C = 15 THEN 26025 

26130 PBINT" Une autre chaine ?":LC=28:G0SUB 65 )FC 
020: IF C = 15 THEN 26010 

26999 RETURH >PH 

44000 'CALCUL CG ET RE >DD 

44010 GI=0:Gï=0:GZ=0:N^O:RE(K)^0 >BP 

44020 FOR 1=0 TD L: FOR J=0 TO HM) >ZD 

44025 K=NM >TE 

44030 GÏ=GI'+IT{1,J) >PB 

44040 GT=GY*YT.(i,J) >PF 

44050 GZ=GZ+ZTCE.J) )PK 

44060 NOT J:HEXT I >NG 

44070 GÏ(K)=GÏ/N >LZ 

44080 GY<K>=GY/N >LC 

44090 GZ(K>=GZ/N >LF 

44100 FOR 1=0 TO L:FOR J=0 TO N(l) >ZP 
44110 R=SQR ((XT(l,JI-G)IIK))ilïT(l,J)-GX(K)) + (ïT(l,J)-G >HJ 
Y(K)H{n(i,J)-GÏ(K)) + (ZT(i,J)-GZ(KJmZTl],J)-GZ[K))î 

44120 IF RE1KKR THEN RE(K)=R >UJ 

44130 NEIT JiKÉjn I >NE 

44999 RETURN >PH 

60000 'TYPE DE SAISIE >DB 

60005 SE=0 >L6 

60010 CLS : P8INT"DEFIN1T1QN TYPE DE SA1S1E':FRINT >ïï 

6002Û PE14T"a-ËaiBie elaslet tpai- folwAî* M, 
60030 PRINT'h-Salsle écran (Contour polygonal plan)":GO >JN 
SUE 6S000:CE=C 

60040 IF CE(>2 THEN CE=1:GDT0 60999 m 

60999 RETURN >PF 

65000 'SAISIE DE CARACTERE >DG 

65010 PHINT.-PRfNT'I/otre choiï :■ >FÛ 

65020 C*="":C»=iN"KEY*:lF C*=" THEN 65020 >FL 

65030 C=ASC(C») >XF 

65035 IF C=13 OR C a 32 THEN C=27:G0TD 65060 >GH 

65040 IF C>96 THEN C=C-96:GQT0 65060 >CH 

65050 IF C<96 THEN C^C-64 >RU 

65060 SOUND 1,20,5 >U 

65535 RETURN )NG 



>FD 



DIAITI AI2 

1 'llliiiiiiiiiiiiiiiiini 

2 'i création ■ 

3 'i fichier bin t 

4 '* aniiation i 

5 '■ du jeu i 

6 'l!i«ll!(l«!lllllllllH )pp 

7 'TAPEZ LE PHOGBAfflE PUIS 'Blffl" >FG 
6 'LA SAUVEGARDE SE FERA AtrTOHATIOUEHENT >FH 

9 'SOUS LE NM DE "ATOH.BIH" )FJ 

10 A=lr639CiF=fc66D0:L=100îUHILE A<=F:F0H A=A TO A4l5:8EA >TU 
D C»;K=tfAL("t"«C»):S=S*K+6553ei(S+K>32767):IF A<=F THEH 

POKE A.K 

20 HEIT:READ M:T*VALE"l B +Dt)tlF TOS TKEM PfilHT CHR*<7 >W\ 
);*Erreur ligne";L:END ELSE L=L+S:«END 
30 SAVE'ATQK.BIir, 8,25500,800 >ÏD 

100 DATA 3A,BC,61,FE,00,C2,5D,65,3A,Bl f 61,FE.00.28,08,F >EV 
E.0751 

105 DATA 0l,CA,F6,64,C3,B5,64,CD,24,BB,2A,AB.61,CD t C3,6 >EH 
3,1024 

110 DATA 22,A8,6l, 03,25, 65,C9,E6,OF,17,5F,16,O0.DD,21,D >EP 
A,16BE 

115 DATA 63,D0,19,DD,5E,00,DD,56,01.D5.D0,El,DD.E9,At.6 >FH 
4,1FE4 

120 DATA IB,64,FA, 63, Al, 64,38,64,A2,64,A1, 64,38,64,60,6 >ET 
4,26D9 

125 DATA E3,64,A1,64,6D,64,A1,B4,FA,63,1B,64,A1,64,3A,A >ËL 
E,2EC4 

130 DATA 61,FE,01,28,ÛD,11,F4,3E ( ED,53,AC,61,3E.09,32,B >EP 
2,3514 

135 DATA 61,09,11, 04,44, ED,53,AC,61,3E, 09, 32, B2,6i. 09, 3 >EA 
A,3C33 

140 DATA AE,61, FE,01, 28,09,11, 50, 43,ED,53,AC,6Î, 18,07,1 >DT 
1,4193 

145 DATA 8O.3D,ED,53,AC,61.3E,01,32,BC,61,C9.3E,û6,32 t B >EN 
2.461C 

150 DATA 61,3E,01,32,AE,61,3A,AA,61,FE,01,C8,3D,32,AA,6 >EB 
1,4EB3 

155 DATA 2B,3A,AF,6l,FE,Ol,28,0D,U,DC,41,ED,53,AC,61,3 >FE 
E.54E5 

1G0 DATA 01,32,AF r 61,C9,H,68,40,ED,53,AC,61,97,32,AF t S >E2 
1.5BD0 

165 DATA C9,3E,06,32,B2,ei, 97,32, AE,61,3A,AA, 61, FE,*4,C >EU 
8,6349 

170 DATA 3C,32,AA,6l,23,3A,AB,61,FE,01,26,OD,ll,0C,3C,E >EE 
D,68A5 

175 DATA 53,AC,61 t 3E,01,32,AB,61,C9 < lt,98,3A,ED,S3,AC,6 >E8 
1.6F7B 

180 DATA 87,32,AB,61,C9,C9,3A,AA,61,FE,OF,D8,11,&0,30,E >FK 
D.77C7 

185 DATA 53,AC t 61,3E,O2,32,Bl,61,C9,3A,B0,61,FE,0F,28,0 )E(1 
E.7E02 

190 DATA 3C,32,B0,61,2A t A8,61,2B,22,A8,61, 03,25, 65,97, 3 >DH 
2,8420 






200 DATA 0F,32, 

3.921B 

205 DATA ED,S3, 

8,9934 

210 DATA 0E.3C, 

7.9F26 

215 DATA 32,81, i 

1.A622 

220 DATA 06,0F, 

1,ACC9 

225 DATA 3E, IF, 

6.B40Ï 

230 DATA BC,EB l 

2.BC7D 

235 DATA 61,47, 

1.C246 

240 DATA CB,3A, 

D.C92F 

245 DATA 29, BC, 

C.CFA9 

250 DATA 61, FE, 

2.D5D1 

255 DATA A8,61, 

1.DC79 

260 DATA 26,09, 

3.E1F2 

265 DATA AC,61, 

0.E632 

270 DATA 00,00. 

0.E632 

275 DATA 00,00, 

0.E632 

280 DATA 00,00. 

0.E632 

285 DATA 00,00, 

A.EAOA 

290 DATA BA.61. 

D.F2E7 

295 DATA 26, BC. 

6.FB30 

300 DATA 28, 2F, 

l.OUA 

305 DATA 22,84. 

3,0764 

310 DATA 86,61. 

B.0D03 

315 DATA D1.3E. 

0, UOE 

320 DATA 00,00 

1.198C 

325 DATA 66, FE 

6.248E 

330 DATA FE.31 

2,2033 



32,80,61, 11, 68,40, ED,53,AC,61,3A,AA,61,D >EB 
AA,61,C3,25,65,3A,AA,61,FE,3S, DO, 11,50,4 >EZ 
AC,61,3E,01,32,B1,61,C9,3A,BQ,61,FE,0F,2>EV 
:,B0,61,2A,AB,61,23,22,A6, 61, 03,25,65, 9 >DH 
,32,B0,61,11,96,3A,ED,53,AC,61,3A,AA,6 >EB 
i,32,AA,61,C3,25,65,ED,5B,A8,61,2A,AC,6 >EB 
47,CS,D5,3E,0C,4F,O6,00.ED,B0,EB 1 El,CD,2 >Fï 
Cl,10,EE,C9,3A,AA,61,21,40,C6,85,6F,3A,fi >FA 
7E,FE,00,28,04,23,10,F8,C9,3E,01,32,B3,6 )EC 
BC,6L,FE,08,2B,10,3C,32,BC,6i,2A,A8,61,C >FK 
22,A8,61,C3,25,65,21, 7A,65,22,A2,63,3A,B >EU 
01,28, 10,3D,32,BC,61,2A,A8,61,CD,26,BC,2 >ET 
C3, 25, 65, 21, 50,65,22, A2.63.3A.AE, 61, FE,0 >EK 
1I,98,3A,ED,53,AC,61, 18,07, 11, 68,40,ED,5 >EC 
97,32,80,61,03,25,65,00,00,00,00,00,00,0 >DG 
00,00,00,00,00,00,00,00,00,00,00,00,00,0 >BJ 
00,00,00,00,00,00,00,00,00,00,00,00,00,0 >BP 
00,00,00,00,00,00,00,00,00,00,00,00,00,0 >BK 
.O0,00,00,OO,OO,OO,ED.5B,B4,61,2A,B6,61,3 >DA 
47,C5,D5,3A,BB,61,4F,06,00,ED,BO,EB,É1,C >FK 
EB,Cl,10,E&.C9,3A,BF,ôl.FE,0A,28.27,FE,4 >FZ 
,3A,BF,61,3C,32,BF,61,2A,BD,61, 23,22,BD,6 >EF 
,61,3E,0B,32,BA,61,32,BB,61,11,96,4B,ED,5 >EK 
,C3,F4,65,3E,23,32,28,66,3E,X,32,21,6G,1 >DB 
,28,32,2B,66,3E,3D,32, 21,66, 18,05,00,00,0 >DQ 
,00,00, CD, 09,BB,FE,F0,CA,85,66,FE,F1,CA,9 >FA 
,F2,0A,9D,66,FE,F3,CA,A9,66,FE,32,CA,B5,6 >FG 
,CA,C1, 66,97, C3,25,65,2A,A8,61,CD,1B, 64,2 >EU 
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33S DATA *.8,61,C3,25,65,2A,A8,61,CD,FA,63,22,À8,BL,C3,2 >EF 

5,33F9 

340 DATA 65,2A,A8,61.CD,38,64,22,A8,61,C3.25,65,2A.A6,6 >EH 

1,3MB 

345 DATA CD,6D,64,22,A8,61,C3,25,65,2A,AB,6i,CD,A2,64,2 >EF 

2.41E3 

350 DATA A6.61, C3,25,65,2A,A8,6I, CD, E3,64.22,À8, 61,03,2 >EH 

5,4993 

355 DATA 65,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0 >CD 

0.49F8 



JIIEIU 



34 OEAB:HEnOBÏ 16000 ;LûAD"î)ATASPRIMSQ00:HEJffi8ï 15000 >DK 
-1 

35 b»=™*(22)+CHfi*(l):c*=CHB*<22)*CHB*(Û)m=5:WIHDQW >NQ 
11,1,20,1,21 

40 POKE 25023,10:PQIŒ 25021. IF A: POKE 25022,aC5 >HD 

50 GOSUB 9100 >HG 

60 aMCHSI ( 321 î DATA 6,21,7,21,12,21,13,21,14,21,6,14,7, >UH 

14,14,14,15,14,16,14 

65 EESTOBE 60:F0fi t=l TO 10:BEAD a,b:LQCAT£ a.biPRINT a >HE 

t:NFJT 

68 DATA 6,21,242,7,21,242,12,21,242,13,21,242,14,21,242 >DQ 
,6,21,243,7,21,243,12,21,243,13,21,243,14,21,243,6,21,2 

44, 7,21,244,12,21, 2U.13.21, 244, 14,21, 244:fiEST0HE 68 

69 PS1HT bl:col=13:co=0 >TF 

70 FOR t=l TO 5:PEN cohREAD a,b,c:LOCATE a.b:PRIHT CHR >MB 
i(c):NETT t;co*co+i!Col=col+l:IF co<>3 THEN 70:ELSE W 

HT cl 

75 PEH 8: GOSUB 9240:G0SUB 9069:' aff sc+vi >Z8 

120 GOSUB 8300 :niv=l: GOSUB 9060 >ZA 

140 GOSUB 9370 )QF 

150 IF ff=l THEN GOSUB 200:ELSE b=b*l:IF b=50 THEH f f=l >PN 

:b=0: GOSUB 200 

160 IF 11=1 THEH GOSUB 210îELSE c=c+l:IF c=70 THEH (1=1 >PC 



:c=0:G 



1 210 



170 d=d+l:IF d=50 THEN HOVE 352,78:DRAU 384,78,13:G0SUB >ÏG 
B122:ELSE IF d)=100 THEH HOVE 352,7B:DfiAlf 364,7B,0:d=0 

171 GOSUB 9420 >QF 
160 IF PEEK(25QÛ2)=66 AND (lag=2 THEH G05UB 931O:G0TO 3 >UF 
00:ELSE GOSUB 9460 

182 t3=PEEKl25002)-PEEK(25008):GQSUB 9450 >JG 

183 ts=PEEK(25002)*PEEKl25008):GOSUB 9450 >JF 
185 CALL 1.6613:1F PEEK(25023)=PEEK<25002) AHD PEEKI2502 >HU 
0X6 THEH GOSUB 9030 

1B6 IF c>=66 THEH SOUND t,30,2,15:ELSE IF b>46 THEH SOU >KV 
HD 1.50,2,15 

190 GOTO 140 >ZB 

200 ad=tB6:add=UH):aa=liD6:aïs=ii4A:]=aLh=a:G0SUB 802Q:i= )ïï 
«*1(1F 1=15 THEH ff=0:z=0:PEN 0:LOCATE 6,20:PRIHT" M 
OCATE 6,19:PH1NT" *:PEH 1:RETUHH:ELSE RETUBN 
210 ad=l£F:add=fcD0:as=iD6:ass=MA: GOSUB 9020:il=ïl»l:IF >TZ 
«1=10 THEH M=0:il=0:PEH 0:LOCATE 12,20^8111^ •jLQCA 
TE 12,19:P8IHT" ":PEN 1:RETURH:ELSE RETURH 



250 'niv 2 >BH 

300 GOSUB B320 >PJ 

301 IF PEEK (25002) =68 AHD Hag=0 THEH ad=135:add=ltCA:G0 >n 
SUB 9790:(laî=i 

302 IF !lag=2 AND PEEK<25002)=68 THEH ad=44F:add=tCA:G0 >TD 
SUB 9790;flag=3 

303 IF PEEK(2502O)=8 AND f)ag=l AHD PEEK(25002)>=3 AHD >«U 
PEEK(25002)<=6 THEH GOSUB 9121:G0SUB 9060:flag=2:as=456 
:GÛSUB 9020 

304 IF PEEK(25020)=8 AHD fla«=2 AND PEEK 1250020=30 AHD >ZC 
PEEKt 25002 K=32 THEH GOSUB 9121:G0SUB 9060iflag=3:as=l, 

56; GOSUB 9020 

305 IF PEEK(25020)=B AND flag=3 AND PEEKt25002l>=30 AH >AB 
D PEEK (25002 K=33 THEH GOSUB 9121:G0SUB 9060:83=1.56:005 

UB 9020:flag=4 

307 IF flag=4 AHD PEEK (25002) =68 THEH GOSUB 933O:G0T0 3 >ZJ 

40 

310 GOSUB 9370 >g E 

320 d=d«l:IF d=50 THEN HOVE 416,190:DRAy 460,190,13:SOU >PU 

HD 4,300,2, 12:ELSE IF d=150 THEN HOVE 416,19Q:DBAH 460, 

190,0:d=0 

330 GOTO 301 )ÏG 

335 'nlv 3 >n 

340 GOSUB 9340:P0KE 4647A.5B >vb 

350 GOSUB 9380 > w 

355 GOSUB 9390 > RF 

356 IF llag=2 THEN 380 >Pfi 
361 GOSUB 9400 >g E 
380 CALL 25500:P0KE 25009,0 >U2 
385 IF flag=2 AHD PEEK(25002)=58 THEN GOTO 400 >L« 
3B6 IF PEEK(25020)=B AND PEEK ( 25002 )>1B AND PEEK125002) >FR 
<22 AHD flag=i THEH flag=2:INK 3,15:a3=156:G0SUB 8470:G 
OSUB 9020:ad=&36:add=iCl:as=18:a9S=452:l=24:h=9:SOUHD 1 
,D,0,0;GOSUB 9020 

387 IF PEEK (25002) =58 THEN INK 3,26:ad=fcl5:add=UM:G0SU >PH 

B 9790: f lag=l 

390 GOTO 355 )AB 

400 POKE lc647A,6B:ad=5:add=H»:G0SUB 979Q:ad=115:G0SUB >QA 

9020:AD=t30:GOSUB 9020:ta(0)=l:ta(l)=i:U12)=l 

405 CALL 255O0:IF PEEK(25002)>3 AHD PEEK(25002K6 AHD P >EH 

EEK(2502O)=B AND ta(0)O0 THEN ad=5: as =156: GOSUB 9470:t 

a(0>=0:GOSUB 9020 

410 IF PEEK(25002)>18 AND PEK125002K22 AND PEEK125020 >TN 

)=B AND ta(l)O0 THEN ad=tl5:as=t56:G0SUB 9470:ta(l)=0: 

GOSUB 9020 

420 IF PEEK(25002)>45 AHD PEEK(25002K46 AHD PEEK(25020 >TÏ 

1=8 AND ta(2)OQ THEN ad=130:a9=fc56: GOSUB 9470:ta(2)=0: 

GOSUB 9020 

425 IF ta(0)=0 AHD U(1)=0 ANS ta(2)=0 AHD PEEK(25002)= >DH 

66 THEN GOSUB 9O62.-G0T0 450 

430 GOTO 405 >zc 

449 'TAS 2 > TH 

450 GOSUB 9360:GOSUB 9080:GOSUB 91OO:G0SUB 9300:HIV=1 >ÏQ 

451 da=5:F0H t=l TO 2ïad=iEQ*d8:add=lFl:as=J I AE:as3=44C: >NH 
l=8:h=3:G0SUB 9020:da=ds+15:HEIT:ds=5:FOR t=l TO 3:ad=i 
0+ds:add=4F2:a3=WEiaas=44C:l=8ih=3:G0SUB 9020:ds=d9+10 
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:NEXT 

455 DATA 10,21, 11,21, 12,21, 13.21,5, 14,6. 14. it, U. 12, 14, >WI 

13,14,U,14:BEST0RE 455: FOR t=l TO IOjREAD a,b:LOCATE a 
,b:PRIKT ai:HEÏT 

460 PÛKE 25000, 41 :PDKE 25001, KDiPQKE 25O02.1:P0KE 2500 >QH 
4.498îP0KE 25005,43A:POKE 25003 t O:POKE 46546,440iP0KE 4 
6547,4C6:P0KE 4647A.6B 

461 'tb 1 >TB 

465 GOSUB 9370 >HF 

466 ad=tFF:add=l<CD:as=4C6:as5=44C:l=6:h=4:G0SUB 3020 >YT 

467 d=d*l:IF d=10 THEN HOVE 312,78:DSAW 384,7B,13:GQSUB >XD 
9122:ELSE IF d=10û THEH HOVE 312,78:DBAU 384,78,0îd=0 

468 IF f f=l THEH GOSUB 500:ELSE b=b*l:IF b=50 THEH ff=l >HF 
:b=0:il=0 

469 IF PEEK( 25002) =68 AHD fla|-0 THEH ad=479:add=4CCiG0 >TA 
SUB 9790:f lai=l 

470 IF PEEK125020)=8 AHD ()ag=l AHD PEEK(25002)>21 AND >LW 
PEFJC 125002X25 THEH GOSUB 9470: f lag=2:ad=S<79 :add=tCC;as 
=456ias3=t4B;l=8:h=8:G0SUB 9020:ELSE IF PEEK(25002)=68 

AHD Maj=2 THEH GOSUB 8310:GOTO 510 

471 IF PEEK<25006)=1 THEH ts=PEEK(25002)-PEEKI25008>:IF >AB 
tsHO AHD ts<18 AND f f =1 THEH GOSUB 9030 

472 IF PEEK(25006)=0 THEH t9=PEEK(25002)*PEEX(25008):lF >AZ 
t>>10 AHD ts<18 AHD f f =1 THEH GOSUB 9030 

400 GOTO 465 >AD 

500 HOVE 132,98:D8AU 132,130,3:*l=iM:IF il)=10 THEH H >VK 
OVE 132,98:DBAU 132,130,0:ff=0:RETURN:&SE BETUBH 
505 ' tb 2 >TA 

510 GOSUB 9320 >QB 

520 GOSUB 9370 >QH 

530 IF ff =1 THEH GOSUB 600:ELSE b=b*l:IF b=50 THEH f f =1 >HU 
:b=0:il=0 

531 d=d+l:lF d=50 THEH HOVE 350,190:DRAU 410,190,13;G0S >HV 
UB 9i22:EL5E IF d=100 THEH HOVE 350, 190: DRAW 410,190,0: 
d=0:FF=O 

532 IF PEEK(25002»2 AHD PEEK125002X7 AHD f f =1 THEH GO >EU 
SUB 9030:ELSE IF PEEKt25002»17 AND PEEK< 25002X22 AHD 
(M THEH GOSUB 9030 

533 IF PEEK<25Q02)>34 AHD PEEK125002K41 AHD tf=l THEH >JT 
GOSUB 9030:ELSE IF PEEK(25002)>44 AHD PEEKI25002K51 AH 

D ff =1 THEH GOSUB 9030 

534 IF P£EK(25002)>54 AHD PEEK125002K59 AHD ttH THEH >GL 
GOSUB 9030 

535 IF PEEKI 25002) =68 AND flag=0 THEN ad=43A:add=4CA:GQ >TU 
SUB 8790:flaf=l 

536 IF PEEK£25020)=8 AND (lag^l AND PEEK(25002)>7 AND P >ZK 
E£K(25002)<11 THEH GOSUB 947O:tlag=2:as=456:G0SUB 9020 

537 IF PEEK1 25002) =68 AHD flaj*2 THEN GOSUB 9330:GOTO 6 >ZA 
15 

540 GOTO 520 >ZC 

600 eo=3:G0SUB 60i:il=iHl:lF il)=5 THEH co=0:ff=0:GOSU >JH 
B 601:BETURN:ELSE BETUBH 

601 HOVE 52,260:DSAU 52,210,co;H0VE 170,260:DBAU 170,21 >LB 
OiHOVE 306.260:DRAU 306,210:H0VE 384,260:DRAU 334,210:H 
OVE 470,260:WAW 470,210:RETURN 

615 ' tb 2-nIV 3 >TC 
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620 GOSUB 934O:P0KE 4647A,68:Pl=l:P=0:HUa=0 >LT 

630 CALL 255O0:P0KE 25009,0 >UI 

640 IF auiOO THEN 644:ELSE IF PEEK125002)>=30 THEH ad= >BP 
450iadd=4F8:as=4DE:ass=44C:I=32:h=4!G0SUB 9020:mr=l 
544 IF iur=l THENip=p+pl: IF p=40 THEN pl=-t:ELSE IF p=l >JD 
THEH pl=l 

645 IF iur=l THEH dp=ad:ad=ad+p: GOSUB 9020:ad=dp >TE 
647 IF PEEK(25002)=6fl AND flarO THEN tp=ad;ad=415:add= >RE 
4DO:G0SUB 9790:ad=tp:Mag=l:add=4F8:as=4DE:aas=44C:l=32 
:h=4 

646 IF PEEK{25020)=8 AHD PEEK(25002>>18 AND PEEK(25002) >KC 
<22 AND f Lag=i THEH f lag=2:as=456:ass=44B:ad=415:add=tD 
0:l=8:h=8:GOSUB 9121:G0SUB 906Û:G0SUB 9020 

649 IF PE£K(25002)>P AND PEEKI25002XP+3 AHD HU8=Ï THEN >JC 
GOSUB 9030 

650 IF PEEK(25002)=68 AHD flag=2 THEH GOSUB 9062:G0SUB >HU 
9360: GOTO 710 

700 GOTO 630 >ZC 

710 'tab 3-niv 1 >RJ 

720 GOSUB 9100:G0SUB 9Q80:niv=ltGOSUB 9300 >KC 

730 DATA 5,21,6,21,7,21,6.21,9,21,13,21.14,21,15,21,7,1 >BW 
4,8, 14,9, 14, 10, 14,11, 14, 12, 14, 13, 14, 14,14, 15, 14:BEST0SE 
73O:F0B t=l TO 17:R£AD a,b:LOCATE a,b:PRIHT at:HEXT 
740 d=d+l:IF d=50 THEH HOVE 152,78:DBAU 200,76, 13:G0SUB >ÏC 



*********CPC 464-664-6128********* 
N OUVEA U LANE 

Jeu de réflexion. Type "CASSE TETE". Positionnez L'ANE au 
bon endroit et c'est gagné I Analyse de l'évolution (1 000 dépla- 
cements mémorisa blés). 

HELPBASIC 

TRON / TROFF / VRBAS / TEMP 

Sur AMSTRAD CPC... la trace complète du BASIC. Vos algo- 
rithmes visualisés, sur l'écran, sauvegardés sur le disque, ou 
imprimés. Il permet de brancher à chaque pas (ligne) de la 
trace, des sous-programmes d'affichage de variables sans 
l'emploi répété de GOSUB. Vitesse de la trace réglable. Logi- 
ciel écrit en assembleur et relogeable. 

HELPbase 

ECRAN / TITRE / LIST / NOLIST / LPRG 

Utile. Son menu est le sommaire de vos applications. Les flè- 
ches pour choisir, "RETURN" pour sélectionner et observer 
l'action et la trace des programmes. Implantation des titres et 
des programmes selon une structure simple. Fonctions Run, 
Renum, List, et Lprg pour lister le programme en cours. 

DEMO, manuel et 11 exemples pour la mise en œuvre. 

BON DE COMMANDE. Logiciels sur disquettes. 

LANE 170 F D , | ,, 

Reqlement par chèque 
HELPBASIC + HELPbase [port compris) 

+ DEMO 299 F 

TRANSFORM - Tél. 39 78 26 57 

15, rue Jean-Jourès. 95240 CORMEILLES-EN-PARISIS 



B122.-ELSE IF d=100 THE» ME 152,78:DBA» 200,78,0:d=0 
750 dl'dl<l:IF dl=70 THEN MOVE 230,78:08»» 284,78,13:50 >F0 

SUB 9122:ELSE IF dl=120 THEN KOI/E 230,78:DBA» 284,78,0: 
dl«0 

760 d2=d2tl:IF d2-40 WE» MOÏE «30,78:08»» «78,78,13:60 >EB 

SUB 9122:ELSE IF d2=B0 7HEK MOIE 430,78:DE«» «78,78,0:d 

2.0 

770 GOSUB 9370 ) 8E 

780 GOSUB 8M0 m 

790 GOSUB 8420 >K 

800 IF fla(=2 AW PEEK<25002)=68 THE» ad.S6B:add=iCC:GG >UU 

SOB 9790:ad=185:G0SUB 9020:ad>S9»:G6SUB 9020:f la(=3:ta( 

0>=l:ta(l)=l:ta(2)=l 

810 IF PEFJ((250O2)>7 AND PEEKI25O02K10 »W PEEK125020I >LZ 

=8 AHD talOlOO THE» ad=fc6B:as=*S6:G0SUB 9121:G0S0B 906 

0:U(01=0:GOSUB 9020 

820 IF PEEK(25002)>34 «HO PEEKI25002K37 AND PEEK12S020 >m 

1=8 AND UdlOO THE» îd=iB5:as=l,56:G0SUB 9121:G0SUB 90 

60:tall)=0:G0SUB 9020 

830 IF PEEK<25002)>5« A«D PEEK12SO02K57 AND PEEK125020 >Nfl 

)=8 AND U12IO0 THE» ad.«8»:as=l56:G0SUB 9121:G0SUB 90 

60:U<2)=0:G0SUB 9020 

B«0 IF flaj-3 AND PEEK(25O02).6B AND lalOLO A» ta(ll= >LÏ 

AND tal2>=0 THE» GOSBB 9310:G0SUB 90S2:GOTO 860 

850 GOTO 740 >AA 

860 'TB 3-HIB 2 > TE 

870 GOSUB 9320:P0KE 25021, AC7:P0KE 25022,lC3:POKE 2S023 >PE 

,10:CALL A6613 

880 GOSUB 9370 >EG 

880 d.dM:IF d=50 THEN H01E 19«,190:DBA» 280, 190,13:110» >UB 

E 380,190:D8A» «76,190.13:G0SUB 9122:ELSE IF d=150 THEN 

«OIE 19t,190:DBAII 260,190,0:HO»E 360,190:08»» 476,190, 
0:d=0 

900 dl=dt+l:IF dl=70 THE» NOVE 280,1BO:D8AU 380,190,13: >PP 
GOSUB 9122::ELSE IF dl=170 THFJ «OÏE 280,19B:D»A» 380,1 
90,0:0m) 

910 D2=D2*1:1F D2=5 THE» CALL 16613:D2=0 >FI 

920 IF PEEK(25023).P£EK12S002) AND PEEK125020K6 THE» >H» 
GOSUB 9030 

930 IF PEEK<25002)=68 AHD fla(=0 THFJ ad=135:add=lCA:G0 )TG 
SUB 9?90:tlar=l 

940 IF PEEK 12502OL0 AND (tapi AND PEEK<2S0O2»=3 AND >»B 
PEEK(25002K=6 THE» GOSUB 9121:G0SUB 9060:flag=2:as=&56 
:GOSUB 9020 

9S0 IF lla|=2 AND PEEK(2S002)=68 THEN ad=l4F:add>KA:GG >T* 
SUB B790iflaf.=3 
960 IF PEEKI250201.8 »N0 tlag=3 IND PEEK(2S0O2)>=30 »ND >ZN 

PEB(2S002K=32 THE» GOSUB 9121:G0SUB 9060:f lag.*:as=l 
56:G0SUB 0020 

970 IF tlag=4 AND PEEK (25002) =68 THEN GOSUB 9330:GOTO 1 >AE 
010 

1000 GOTO 860 >p c 

1010 'TAB 3 )IE 

1.020 GOSUB 9340:P0KE A647A,5B >»U 

1025 GOSUB 6380 >y A 

1030 CALL 25500 >(1H 
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1040 G 

1050 GOSUB 9400 >*b 

1055 IF PEK125002>=56 THE» LOCATE 3,2:PE» S^BINT'B >8P 
H U SVFOB t>l TO 10:F08 |=1 TO 150:»EIT J:GOSUB 9060:S 
6UND 1,100,5.15:NEIT t:G0SUB 9O62:CLSil:6OT0 35 
1100 GOTO 1030 )U ) 

9000 ' >IB 

B005 'affiche transfert fournir adr écran >YG 

9010 POKE 2SO12,FEEK(250OO):P0KE 25013.PEEK(25O01):P0KE >BH 

25O14,A62:P0KE 25015,&49:POKE 250i8,31;POKE 2S019,12:C 
AU 26100 

9015 F08 t-0 70 5:P0KE 25012,ad2:P0KE 25013,add2:P0KE 2 >KC 
5014,A38:P0KE 25015,M6:CALL 26100:SOUHD 1,500, 15, lOiFO 
8 1=0 TO 150:HEIT x:POKE 25014,IAC:P0KE 25015,147:CALL 
26100:F0B <=0 TO lOOiNEIT i,t:POKE 2501«,462:POKE 25015 
,A49:CALL 2610O:BETUBlt 

9017 'affiche sprlte de taille t fournir adr eeran.adr )YK 
raa.nau, lar 

9020 POKE 25012,ad:P0KE 25013,add:P0KE 25014, as:POKE 25 >ÏN 
01S,aaa:POI(E 25018,1:P0KE 25019, h:CALL 26100:EETUBN 
9025 'houe détruit >vj 

9030 INK 5,26:INK 2,26:S0UND 1,1500,15,10:FOB t-0 TO 20 >U 
:HE1T t:POKE 25O12,PEEK(25000):P0KE 25013,PEEK(2SO01>:P 
OKE 2S0l«,a62:P0KE 25015, 149:P0KE 25O18,3l:P0K£ 25019,1 
2:C»U, 26100:POKE 25011,0:1»! 5,6:1»K 2.5:P0K 25009,0: 
POKE 25O06,O:G0TTj 9230 

90*0 IF PEEK(25020)=0 THEN GOSUB 9030:BETUBN:ELSE BETUB >BD 
H 

8050 IF PEEKI161B2I09 THE» POKE 2S006.0:P0KE 25OO9,0:P >GL 
OKE 25020,0:GDSUB 9030:BETUBN:ELSE BETUB» 
9057 'i lest acore » >zd 

9060 sc=SCt10:G0T0 9069 )an 

9061 Sc=sc+20:G0T0 9069 > H o 

9062 sc=sc)30:vi=vi+l:GÛSUB 9240 >»T 
9069 LOCATE 6,23:PE» 8:PBI«T sc:BETUB» >HB 
6080 'initialisation tout tableau >VK 
9081 ff=0:fl.0:f!ag=0:b=O:c.0:z=O:xl=O:d=0:F0B t=0 TO 9 >UZ 
:U(t)=0:HEZT:dl=0:d2.0:8ETUBN 

9100 CLSIlilNK 11,0:INK 12,0: INK 13,0:PBI«T bl:F08 t=l >FL 

TO 20:PEN 12:L0CATE t,7:PBIHT CHBIU31):L0CATE t,14:PBI 

«T CH8tU31):U)CATE t,21:PBINT CHBX131) 

9110 PEN 13:L6CATE t,7:PBINT CHBI(24O):L0CATE t,l«;PBIN >EL 

T CH8t(240l:L0CATE t,21:PBINT CHBt(240) 

9115 PEN U:LOCATE t,7:PEINT CHBt!2«l):L0CATE t,14:P»lN >DI 

T CHBII2tI):L0CATE t,21:PBI»T CHBI[2«l):»FjrT:PEINT et 

6120 INK U,1:IKK 12,26: INK 13.14:ad=t56:add=>F4:a9.>20 )«E 

ia9a=MH:l=ll!h=6iCÛSUB 8020iad=e26:add.aF2:G0SliB 9020: 

ad=A46:add=lCB:G0SUB 9020:BETUBH 

8121 FOB 1=0 TO 5:S6U»D l,H5,2,15:»En:U(2)^:BETUB« >Z» 

9122 SOUND 1, 1000,10, 15:S0UND 4,1020,10,15:BETUBN >TÏ 

9210 '1 gestion vie s >?E 

9230 wl=vl-l >6C 

9240 LOCATE 17,23:PEN 6:P8INT ii:IF »I=0 THEN CLSIl:GOT >FK 

8 9800 

9250 OH nlv GOTO 9281,9282,8283 >XE 

9281 GOSUB 9300: BETUB» >B£ 
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9282 PUCE 25000, U» ;P0KE 25001, KA:PQKE 25002,1:POKE 25 >SÏ 

O04,a98:P0KE 25005, 13A:P0KE 25Q08,0:BETUBN 

02B3 POKE 25000,fcAO:POKE 25001, fcC8:P0KE 25002,1:P0KE 25 )HS 

OO4,t98;P0KE 25005,fc3A:lETUB»l 

8300 POKE 25000,il:POKE 25001, 1.CD: POKE 25002,1:P0KE 250 >PH 

04,19B:POKE 25005. MA: POKE 25003,0:PDKE 2502Q,0:P0KE 25 

010,6:P0KE l<6546,UO:P0KE 46547, IC6: POKE «47A,66:ÏETUE 

H 

9309 ' ascenseur bas >2D 

0310 ad2=aF6:add2=fcCC: GOSUB 9O10:G0SUB 9060:RETURN >VV 

9319 ' innlt nlv 2 >ZE 

9320 n!v=2:P0KE 25000, tDO: POKE 25001, iCA:PQKE 25002, l:a >BB 
d2=W0:add2=tC2:G0SUB 9010:POK£ 25OO4,(.98:P0KE 2S005,£3 
A:P0KE K546, 110: POKE 16547, fcC4:6ÔSl!H 9Û80:RETUBN 

9320 ' passage nlv 3 >ZF 

9330 a<12=K6:add2=ld)2: GOSUB 9010:G0SUB 9G6i:EETUBH >VC 

9339 ' lnnit nlv 3 >ZG 

9340 niv=3iP0KE 25000, 1A0: POKE 25001, IcC8: POKE 25002,1:» >BQ 
d2=*5O:âdd2=fc£B:G0SUB 9O10:P0KE 25004,t98:POKE 25005, U 
A:POKE W546,fcE0:P0KE 16547, tClïGOSUB 9Û60:BETUBN 

9350 ' paasge asc 3 >ÎK 

9360 POKE 25000, bEO: POKE 25001, fcC8:ad2=s95:add2=*E8:G0S >HK 

UB 9010:GQSUB 9061:BETUBN 

9370 CALL 25500:CALL t6542:IF PEEK(25011)=1 AH) PEEK(25 >BP 

009 >=0 THEN GOSUB 9030:RETUfiN:ELSE POKE 25011, 0:RETUBN 

9380 ad:fc36:&dd:I£l:as=kK:Bss=UB:l=24:h=9:G0SUB 9020: >KI 

BETUBN 

9300 IF d=35 THEN SOUND 1,50,2.15:ELSE IF f>100 AND d<3 >JÛ 

THEN SOUND 2,70,2, 15:BETURN 

9391 BETUBN >GF 

9400 d=d*l:IF d=5Q THEN GOSUB 9122:F0B 1=544 TO 40 STEP >AE 

-8:PL0T t,35O,2:PL0T t*8, 350, OitiEXT: GOSUB 9050:ELSE IF 

d=52 THEN PLOT 40,350, 0:d=0 

9410 f=M:IF f =120 THEN SOUND 1,1200, 10, 13:S0UND 4,123 ;DV 
0,10,13:FOfi t=544 TO 40 STEP -B:PLOT t,314,2:PL0T t+8,3 

14, 0:HEXT: GOSUB 9040:ELSE IF f=122 THEN PLOT 40.314,0:1 
=0:tETUÏH 

9411 BETUBN >FJ 
9420 IF PEEK(25020)=8 AND llag=l AND PEEK(25002)>29 AND >QH 

PEEKC25002K33 THEN GOSUB 9121:GOSUB 9060:flag=2:ad=l(8 
0:add=tCC!as=t56:aas=l4B: GOSUB B020:BETU1H:ELSE BETUBN 
9450 IF ts>19 AND ts<26 AND ff=l THEN GOSUB 9030iELSE I >ZE 
F ts>43 AND ta<53 AND (1=1 THEN GOSUB 9030 
9455 BETUBN >GG 

9470 GOSUB 9121:G0SUB 9060:B£TUIN >C» 

9480 IF PE£K( 25002) =68 AND flag=0 THEN ad=¥.8Q:add=&CC:a >TQ 
i=alG:ats=l[4B:l=8:h=8:G0SUB 9020:flag=l:BETUBN 
9485 BETUBN >GK 

97B0 IF PEEK(25002)=68 AND flag=0 THEN ad=a80:add=l[CC:a >ET 
s=ll6:ass=L4B:i=8:h=B:G0SUB 9020:tlag=l 
9790 As=iî6:ass=a4E:l=a:h=8:G0SUB 9020:BETUBN >QE 
9800 LOCATE 3,1:PEN 9:PBINT*G A H E - V E E*:LOCATE 5 >BX 
,10:PEH 13:PB1NT I BEJ0UEB Q/N * 
9810 CLEAB MOT: FOI t=0 TO 100:NEXT:D*=UPPEB*UNKEY»h >J!) 

IF Dt='0* THEN ŒAB:BUN 35:ELSE IF d*=*IP THEN flODE 0: 

EHD:ELSE GOTO 9810 
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RECTIFICATIF 

Le mois précédent. Il était question des 
problèmes avec les fviinitels récalci- 
trants. L'appui sur les touches FONC- 
TION + P et ensuite I provoque bien 
l'apparition du symbole I (pour Inhi- 
bition) mais la barre d'espace n'ef- 
face pas ce symbole. Il faut en fait 
utiliser les mêmes touches que pour 
inhiber c'est-à-dire FONCTION + P et 
I. Autre correction par rapport au mois 
dernier : les programmes en plusieurs 
parties ne posent pas de problèmes 
lors du téléchargement. Les Rescue 
et autres Momie ont été corrigés, il ne 
devrait donc plus y avoir de problè- 
mes. 




On nous a signalé des problèmes avec 
le logiciel Agenda. En fait II faut Im- 
pérativement transformer le deuxième 
programme en Basic sinon cela ne 
fonctionne pas. 

Vous trouverez Ici la liste des logiciels 
présents sur Arcades au25/2/89. Cela 
vous économisera quelques minutes 
de connexion. 



Liste des logiciels présents sur Arcades 



ALCA 

2 ALPHA 

3 AMSBOGG 
i ANE 

: AWARI 

- BLEUCARD 
" BVKE 

i CÉNDRIO 

- CHARASSO 
: CHIFFRES 

■ CONFUS 

: CLIBEMEL 

:■ DJDAGPRE 

^ ENERGIX 

î MANOIR 

MATRIX 

2 MAZE 

3 MISSION 

4 MOMIE 

5 OPERAT 

6 PACKY 

7 RESCUE 

S RUNAWAV 

9 SATELLIT 



Jeu d 'arcade spécial 
Un strip-pendu 
Version CPC du Boggie 
Jeu de réflexion 
Jeu de réflexion africain 
Jeu de mémorisation 
Un remake de TRON 
Aventure tirée du conte 
Jeu en BASIC (arcade) 
Reprise du célèbre jeu 
Jeu de réflexion 



Jeu de réflexion 
Labyrinthe 
5upercoptet sur CPC 
PtXz'S-.., 'e égyptienne 
Arcade spatial 
Un pac-man en BASIC 
Sa u vêlage en hélicoptèi 
Lode runner pour CPC 



MEMOCART Jeudemèmoire 

NUCLEAR Tableau de Mendeleev 

PROBLEME Des problèmes de caicul 

SQUELET Révision anatomlque 

TOPCALC Révisions opérations 



AMSLOG 

ANALYSE 

ANTIER2 

BANDEIMP 

CAMBER 

CATDISK 

CATK7 

COMDECOM 

CREADATA 

DEFCAR 

DEMOTRIS 

DESAS 

DISCUT 

EDICAT 

JAQUETTE 

PAVNUM 

PROTLIST 
REGISTRE 
RENUM 

TELECHAR 

XREF 

XREF128 



Trace de; 
Catalogue disque amélioré 
Catalogue pour K7 
Compila teu r d ' éc ra ns 
Du binaire aux Data 
Redéfinir des caractères 
Routines de tri 
Un dosasse mbleur 
Utilitaires simples 
Imprime: vos catalogues 



;s jaque 
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Redéfinition des touches 
Protection des listings 
Manipulation des registres 
Renumérotât ion program 

Correcteur CTAPEZ GUIDE) 
Table des variables (464) 
Version 61 28 de XREF 



CHENILL 
CIRCLE 

COURBES 

CPDATA 

DEMOPIIMT 

EFFECTS 

EFFETS 

ROUTE 

TITRES 



Démo cyclage de couleurs 
Quelques exemples de fonc 

2 RSX graphiques 

CPDATA obligatoire (démo) 
Trucs pour présentations 
Effet spécial sur écran 
Petite démo graphique 
Démo de titres colorés 



1 ACTIONS 

2 AGENDA 

3 ALCOOL 

4 ASTRO 

5 BON-SON 

6 CALCULAT 

7 CARMAGIC 

8 CIEL 

V CONGEL 

10 CONSCARB 

1 1 DISCO 

12 ETIKDISC 

13 GENEALOG 

14 NUMERO 1 

15 OSCILLO 



Gestion actions boursières 

Planifiez vos Journées 

Un alcootest électronique 

Calculatrice de poche 
Les carrés magiques 
Repérez les étoiles 
Gérez votre congélateur 



Etiquettes pour disque 
Généalogie informatique 

Logiciel de numérologie 



CONJUGUE 

COULMELO 

DEPARTOI 

DRAPEAU 

EUROPA 

LATIN 



Conjugaison françase 
Mélange des couleurs 
Jeu de l'oie départemental 



AM3MUSIC Composez vos pr 

AMSRYTHM Boita à rythmes 

EUGENIA Scott Jopfin 

MENUET Musique 

MUSICA Unutilitairemuslo 

MUSICRAG Musique 



PRATIQUE 

TABLE 

TRAJECT 

VAGUES 





rotation et de l'inertie reine où j'ai failli perdre la boule... 
En effet, il y a des cases qui augmentent votre score, d'au- 
tres qui le diminuent, quelques-unes ont des effets mys- 
térieux ou vous emprisonnent sans compter celles qui 
accroissent ou diminuent votre masse, votre volume ou 
votre inertie ou, encore, si vous êtes trop lourd, les cases 
qui s'abîment et deviennent alors mortelles... Bref, c'est 
l'enfer ! 

Edité pur :EIecfric Dreams 

Prix indicatif : Non communiqué 



►Ah, vous m'en direz des nouvelles de ces « 
qui, après quelques années passées derrière un bureau 
à se rouiller veulent retrouver quelques sensations fortes 
en se replongeant dans le feu de l'action ! C'est le cas du 
colonel en chef, Matt Ridley ; il a décidé de prendre les 
commandes d'une sphère de chasse et de se iancer sur la 
piste de mort réputée comme quasiment impraticable même 
par le plus chevronné d'entre nous... Résultat? Il a été 
mis out par les «sphères assassines» et il faut maintenant 
que je me lance moi aussi sur cette fameuse piste afin de 
le localiser. 



Après avoir déposé 4 réserves de munitions sur les 4 
plates-formes constituant le premier niveau, je commence 
doucement ma progression. En effet, je me montre très 
prudent car il est facile de perdre Se contrôle de la sphère 
et, pour peu qu'elle touche certaines cases, elle se trans- 
forme rapidement en boule de flipper !... Afin d'affronter 
les sphères assassines dans de bonnes conditions, je me 
dirige d'abord vers le premier bon qui me transporte sur 
la seconde plate-forme. A ce stade, aucune d'issue possi- 
ble mais seulement une case qui m'entoure d'un champ 
protecteur qui va durer suffisamment longtemps pour 
passer au travers de l'ennemi de la Ire plate-forme si j'ar- 
rive à me diriger correctement. En faisant le grand tour 
dans ce premier labyrinthe, f atteins l'issue passer à îa 
plate-forme suivante ; îà pour traverser le premier pas- 
sage sans encombre, il vaudra mieux que je sois en état de 
diminution de masse car tout joue dans ce théâtre de la 





â ! 



Patience, surtout ne pas s'énerver ! Voici la devise à 
respecler pour jouer avec ISS. En effet, toute votre con- 
centrât ion .sera nécessaire pour bien maîtriser le ma- 
niement de la sphère. Ceci mis à part, les graphismes 
sont corrects et le scroliing d'un bon effet, m 
serez-vous assez persévérant pour les apprécier ? 

QOQQ42-IZO 
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DU COTE 
DES COMPILATIONS 

Ce mois-ci, il y en a pour tous les goûts au niveau des compilations ; en effet, que vous soyez 

un as du joystick ou un fanatique des logiciels du genre arcade/aventure, vous pouvez faire 

votre choix parmi les titres suivants. 

INFOGRAMES 

• Dans leur série de compilations à thème, Infogrames vient de sortir Les Aventuriers qui ne regroupent pas moins de 8 logiciels. 
Parmi eux, vous connaissez déjà Marche à l'Ombre, Stryfe, Eden Blues, Momy et Massacre à la Tomate qui, en leur temps, ont fait 
l'objet d'un banc d'essai dans Amstar. Voici un rapide aperçu des 3 derniers titres qui complètent cette compilation : Dwarf vous 
oblige à grimper en haut d'une forteresse en vous aidant de parchemins trouvés en chemin qui vous indiquent les bonnes direc- 
tions. Electric Wonderland est un jeu de hasard où vous avez des puits, des champigons. Il suffit de retrouver le bon champignon 
pour chaque puits. Quant à Pépé Béquilles, 11 vous plonge au cceur d'un hospice et de ses nombreuses pièces dans lesquelles vous 
allez évoluer en utilisant des menus. 

LES AVENTURIERS, DK : prix non communiqué 



MELBOURNE HOUSE 

• C'est d'outre-Atlantique que nous arrive directement cette 
troisième et dernière compilation. 

La version proposée est sur cassette et coi 
tient 5 logiciels : Sweevo's World, Tir 
Nanog, Dun Darach, Marsport et Hea- 
vy on the Magick. 

Cette même compilation est égale- 
ment disponible en version dis- 

GARCOYLE CLASSICS 



OCEAN 



C'est sous le nom de Dynamite qu'Océan pro-ï 
pose cette compilation comprenant 8 ti- " 
très prestigieux puisqu'ils ont te 
ététestésdansAmstar.Aussinous \ 
nous contenterons de vous rap- 
peler les titres des logiciels 
concernés : Crazy Cars, 
Gryzor, Kamov, Salaman- 
der, Predator, Platoon, 
Combat School et Driller. 

DYNAMITE, K7 : 149 F 
DK : 199 F 



*%r<8Çlfc,*' 
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Que l'on soit petit ou grand, la magie qu'exerce le 
cirque sur nous est toujours aussi vive ; d'ailleurs 
qui n'a jamais rêvé être au milieu de la piste faisant 
son numéro d'acrobaties en étant adulé par le 
public ? 

Avec Circus G âmes, vous pénétrez sous le plus grand 
chapiteau du monde puisqu'il s'agit du cirque 
Bamum. Vous avez l'honneur de pouvoir présenter 4 
numéros aussi dangereux les uns que les autres : le 
domptage de tigres, le trapèze, la corde raide et la 
voltige à cheval. Voyons chacune des disciplines 
indépendamment : pour le domptage des tigres, vous 
n'avez pas moins de 3 gros chats à domestiquer dans 
3 exercices différents ; pour y parvenir, vous êtes bien 
sûr équipé d'un fouet et d'une chaise qu'il faut 
utiliser à bon escient. Le premier exercice consiste à 
faire s'allonger les bêtes et à leur tourner le dos 
pendant 9 s sans se faire attaquer ; ensuite, il faut que 
le tigre aille de l'autre côté de la cage et, pour finir, les 
3 «bestioles» doivent passer à travers un tuyau. . . 
Autant vous dire que tout ceci est plus facile à dire 
qu'à faire. Nous passons ensuite à l'épreuve du 
trapèze qui est plus accessible à condition de bien 
synchroniser vitesse d'exécution et départ d'acrobatie 
car sinon les retournements, sauts périlleux et 
doubles sauts périlleux se terminent très mal d'autant 
plus que vous travaillez sans filet. La 3ème épreuve 
se révèle très délicate : en effet, la corde est v: 
très raide et le moindre petit déséquilibre vo- 
entraîne irrémédiablement dans une chute el 
vous écrasez lamentablement sur le sol. 




Heureusement qu'à droite de l'écran, une vue de 

vous permet de surveiller votre équilibre et de 
le rétablir instantanément. . . Quant à la dernière 
épreuve, elle met en scène une belle cavalière pour 
qui les sauts périlleux se terminant sur la croupe du 
cheval n'ont aucun secret. 11 va falloir attraper une 
balle, sauter dans des cerceaux et, comme il n'y a pas 
de spectacle réussi sans clown, il faut éviter les tartes 
à la crème lancées par le clown et pour terminer le 
tuer d'une balle. Triste fin !... 

Edité par -.Tynesoti 

Prix indicatif : Non communiqué 




urs, il faudra persévérer dans !' 
r chaque numéro mais le travail long el répété d'un exerc 
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SOLUTION 



L'ILE 



Etant seul et vulnérable sur la plage, 
vous allez au Nord ; à l'ombre des 
palmiers, il suffit de fouiller dans le sa- 
ble et de prendre le briquet avant d'al- 
ler d'abord au Sud puis 2 fois à l'Ouest. 
Vous vous retrouvez alors face au Grand 
Sorcier devant lequel vous allumez le bri- 
quet ; il est alors très impressionné, vous 
ne pouvez donc faire autrement que de 
lui donner le briquet d'autant plus qu'en 



échange vous êtes convié à prendre une 
peau. Après cette rencontre, une petite 
balade vous fera le plus grand bien, vous 
allez au Nord, puis à l'Ouest puis au Nord 
puis à l'Ouest puis au Nord puis à l'Ouest 
puis au Nord puis... Stop! Vous êtes 
devant le gardien du temple à qui vous 
donnez la peau. En allant alors 2 fois vers 
le Nord, vous vous retrouvez dans le 
temple avec ses mystères. Toute une cé- 



rémonie doit se dérouler autour de 
l'anneau : tourner l'anneau, tirer l'an- 
neau, tourner l'anneau, pousser l'anneau, 
ce qui permet alors de prendre le mas- 
que. De nouveau, un petit tour s'impose : 
3 fois au Sud, à l'Est, au Sud, à l'Est, au 
Nord, à l'Es! et au Sud pour se retrou- 
ver face au passeur à qui il faut donner 
le masque pour pouvoir continuer à l'Est, 
au Sud et 2 fois à l'Ouest. Vous pouvez 
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alors embarquer et «vogue la galère» 2 
fois à l'Ouest pour se retrouver sur les 
pics. Vous examinez attentivement la 
neige puis prenez les fleurs. Un petit 
demi-tour vous fait aller 2 fois à l'Est et 
embarquer à nouveau avant d'aller à l'Est 
puis au Sud et vous voici à nouveau 
devant le sorcier, il suffit de lui donner 
les fleurs, de prendre le pollen et de le 
manger. Vous êtes alors en pleine forme 
pour aller au Nord puis à l'Ouest, em- 
barquer une nouvelle fois puis aller 3 fois 
au Sud et terminer à l'Est. En fouillant 
les cendres, vous découvrez un trésor et 



prenez des pièces avant de vous rendre 
au Nord. Devant la scène horrible qui se 
passe sous vos yeux, vous fouillez les 
buissons et prenez le cristal que vous 
découvrez ; il faut alors retourner à 
l'Ouest et 2 fois au Nord pour embar- 
quer unenouvelle fois, aller 2 fois au Nord 
puis à l'Est pour se retrouver devant le 
forgeron. En lui donnant les pièces, vous 
pouvez prendre un manteau que vous 
enfilez ; de plus, vous prenez une hache 
après avoir aidé le forgt 

e plus qu'à reprendre la route pour 
u temple : Ouest, Sud, Ouest, 



2 fois au Nord, Ouest et 2 fois au Nord. 
Vous cassez le cristal et rebroussez vite 
chemin : 3 fois au Sud, Est, Sud, Est et 
Sud ce qui vous amène à embarquer une 
dernière fois avant d'aller au Sud. A l'en- 
trée de la grotte, vous coupez du bois et 
le prenez puis vous entrez dans la grotte. 
En allant 3 fois au Sud puis à l'Ouest, 
vous vous retrouvez sur la côte. Il ne reste 
plus qu'à poser le bois, fouiller vos 
poches, prendre les allumettes et allu- 
feu qui va vous permettre de 
quitter cette île à tout jamais. 



Dans 
temple 







s'entraîner tout au long de l'année. Cha- 
que chapitre se présente de la manière 
suivante : un rappel du minimum de con- 
naissances à avoir et, chose très impor- 
tante avant de passer aux exercices et à 
leurs solutions, quelques trucs, conseils 
méthodologiques ou des mises en garde 
qui manquent bien souvent à l'élève pour 
appliquer correctement la théorie apprise 
en cours. Quant au livre de français, il 
contient lui aussi des corrigés (ce qui n'est 
pas négligeable) et aborde les problèmes 
liés à la dictée, la pratique de l'explica- 
tion de texte et l'entraînement à la rédac- 

Passons maintenant à la partie qui inté- 
resse plus précisément votre CPC : une 
disquette pour les maths et une pour le 
français qui, malheureusement pour les 
possesseurs de 464, n'acceptent de rem- 
plir leurs fonctions que sur 664 et 6128... 
Après une page d'accueil avec un hôte 
de marque puisqu'il s'agit quand même 
d'Einstein pour les maths, le menu prin- 
cipal nous propose 9 sujets d'étude qui 
sont les suivants : calculs dans R et puis- 
sances, factorisations, racines carrées, 
Thaïes et Pythagore, trigonométrie, sys- 
tèmes d'équations, repères et coordon- 
nées, équations de droites et, pour ter- 
miner, géométrie dans l'espace. Une fois 




qu'un chapitre est choisi, l'élève 
a 2 possibilités : ou faire un 
exercice ou choisir un «vrai- 
faux» qui est une série de questions per- 
mettant de tester les connaissances. Cette 
possibilité de test sur des notions élémen- 
taires est très intéressante car on repère 
tout de suite les lacunes. Quant aux exer- 
cices, ils sont présentés de façon claire et 
précisons qu'il est possible de choisir 
l'exercice à résoudre. Enfin, pour un exer- 
cice, 

ilya3 types de données possibles : «Pro- 
fesseur» qui traite l'exercice avec des 
données qui tombent juste ou 
des cas particuliers à étudier, 
«Hasard» qui permet vraiment 
de tester la compréhension de 
l'exercice ou «Elève» qui vous 
autorise à entrer les données que 
vous désirez... pour voir ! 

Etudions maintenant ce que 
propose la disquette de fran- 
çais. Cette fois, c'est Victor Hugo 
qui se charge de l'accueil avant 
de proposer un menu compor- 
tant 11 points d'étude : les par- 
ticipes passés, les accents, la 
ponctuation, l'emploi des mo- 
des, les consonnes doubles, 
éviter les fautes de français, 
exercices de style 
en évitant les mots banals 
vocabulaire : pli 
tronyme, vocabulaire : déri- 
vés, glissements, vocabu- 
laire : contraire, plus fort et 
correction des fautes dans 
une dictée. 

Quand un exercice est choi- 
si dans un chapitre, 3 don- 
nes différentes sont accessi- 
bles et il est bien entendu 
possible d'obtenir de l'aide 
pour résoudre les cas épi- 



neux. Là encore, la présentation est claire 
et soignée avec la superposition de 3 ca- 
dres : le premier pour le type d'exercice, 
le second pour une aide éventuelle et le 
dernier pour l'énoncé de l'exercice et sa 
résolution. 
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un excellent support d\ 

au brevet d'une part et de pré- 
in à l'entrée en 2nde d'autre part ; 



latique en font un 

outil très complet. Quant à l'utilisation 
des logiciels, elle est facile et agréa- 
ble grâce à une présentation de qua- 
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BALADE A COLOGNE 



Ceux qui lisent régulièrement nos co- 
lonnes ou les habitués des éducatifs 
de Coktel Vision ne sont pas sans con- 
naître Enigme à Munich ou Balade ou- 
tre-Rhin qui nous contait en allemand 
l'histoire d'Alice au pays des Merveilles. 

Cette fois le logiciel que nous vous pré- 
sentons s'adresse aux élèves qui ont déjà 
environ un an d'étude de la langue alle- 
mande à leur actif. Dans ce cas, il leur est 
proposé de faire une séance de lecture en 




nouvelle contempo- 



Ainsi donc, nous faisons la connaissance 
de 2 camarades de toujours qui se pré- 
it Franck et Steffen. 

is tous les deux de 1 ans, ils fréqi 
tent la même école et se retrouvent très 
tôt chaque dimanche matin pour 
nouvelle aventure. 

Le premier chapitre de cette histoire nous 
raconte ce que font les garçons avant de 



se retrouver devant la porte 
de l'appartement de Steffen. 
Un écran se présente avec un 
graphisme illustrant le texte 
en haut à gauche et le texte 
efi lui-même qui comprend 
des mots écrits en vert et 
d'autres en blanc. 



Il est possible d'obte- 
nir la traduction de ces derniers en 
faisant appel à un dictionnaire ce 
qui facilitera la compréhension du 
texte. 

A la fin de chaque chapitre (le lo- 
giciel en comporte 8), on passe à une 
série d'exercices de compréhension 
sous forme de questions à choix 
multiples qui sont ensuite suivis par 
des exercices de grammaire : par 
exemple, à la fin du 1er chapitre, il 
est étudié la proposition infinitive 
début um... zu..., le superlatif ir- 
régulier avant de terminer par un 
jeu qui dans le cas présent compare 
les noms des classes en Allemagne et en 
France ; par exemple, la Ire classe alle- 
mande correspond au CP... 

Voici donc le schéma qui va être suivi 
jusqu'à la fin du logiciel. 
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Notre 



Dans cette catégorie, ces logiciels sont 
semblables à eux-mêmes avec en plus 
du logiciel un bande audio afin d'amé- 
liorer son accent en entendant les in- I 
tonations. Seulement, les couleurs i 
choisies pour la partie compréhension i 
et grammaire ne sont pas heureuses 
car elles rendent la lecture à l'écran 



l'espagnol peuvent découvrir la même 
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ANGLAIS TOP NIVEAU 




Le but de ce logiciel, qui s'adresse à 
des élèves de 2nde et Ire, est de dé- 
couvrir le monde où l'on parle anglais... 
ce qui n'est pas en soi une mince affaire 
car il y a quand même 400 millions d'hom- 
mes qui utilisent cette langue. A cette fin, 
4 cartes différentes sont proposées à 
l'élève : l'Australie, l'Irlande, l'Afrique du 
Sud et les Etats-Unis. 

Choisissons par exemple la carte des 
Etats-Unis ; dix villes y figurent : San 
Francisco, Los Angeles, El Paso, Chica- 
go, St Louis, New Orléans, Miami, Was- 
hington, Philadelphie et New York. 
Vient ensuite un menu proposant 4 op- 
tions différentes : l'étude poussée d'un do- 
cument graphique, l'étude approfondie 



d'un document oral, des 
tests rapides sur des connais- 
sances générales ou l'appro- 
fondissement d'un ou plu- 
sieurs faits de langue. 

Par ailleurs, il faut noter la 
présence d'un outil qui va 
se révéler très intéressant : 
il s'agit d'une base de don- 
nées thématiques sous forme 
de textes, tableaux statisti- 
ques abordant l'histoire, la 
géographie ainsi que les phé- 
nomènes sociaux, hu- 
mains et culturels. 



En choisissant l'étude du document 
graphique, nous voyons une main 
s' accrochant à un grillage ; différen- 
tes questions vont nous amener à 
découvrir qu'il s'agit d'une frontière 
entre le Mexique et les Etats-Unis 
et pourquoi elle existe sous cette 

La seconde option du menu prin- 
cipal fait référence aux textes enre- 
gistrés sur la cassette audio qui ac- 
compagne le logiciel. 

Après l'avoir écouté, il faut répondre aux 
questions qui s'affichent à l'écran et com- 
pléter des phrases. Quant aux tests rapi- 
des, ils font bien sûr référence aux textes 



contenus dans la base de données et de- 
mandent des dates correspondant à des 
événements importants ou des termes 
spécifiques. 

Enfin, pour terminer, le dernier point 
permet d'approfondir des faits de langue 
précis comme le style direct et le style 
indirect par exemple. 

Après cette découverte des Etats-Unis, 
il reste encore 3 autres cartes à découvrir. 
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[ Notre avis : 



i bon support p< 
de l'anglais et même la préf 



: tes documents puis- 
bien des écrivains con- 



de 6128 ont la possibilité de vrai 
s enrichir avec ce logiciel. 
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Apprendre à écrire par le biais d'un 
ordinateur ? J'en vois certains qui com- 
mencent déjà à sourire et à se dire que si 
l'audiovisuel et la micro-informatique lu- 
dique causent un préjudice à la lecture 
et à l'orthographe, un ordinateur ne peut 
is aider à l'apprentissage de 



Prenez le temps de découvrir la présen- 
tation de ce logiciel et vous changerez 
sûrement d'avis. Le principe est tout 
simple : il s'agit de mémoriser la visuali- 



J'APPRENDS A ECRIRE 
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sation à l'écran de lettres ou 
de mots que l'enfant demande 
par l'intermédiaire du clavier. 
Voici un exemple précis : 
après avoir choisi les options 
«mot» et «minuscules», le 
programme attend que vous 
rentriez un mot ; au hasard 
«ordinateur». Après un temps 
de calcul nécessaire pour le 
logiciel, et qui apparaît sous 
forme de compte à rebours 
(rassurez-vous, ce n'est pas 
trop long), le mot demandé 
s'écrit sur la réglette dessinée 
à l'écran. Il faut noter, détail 
très important, que le mot 
inscrit à l'écran dans le sens normal de 
manuelle. Par ailleurs, la police 
sélectionnée d'office est la 
scripte mais les mots ou lettres en cur- 
sive sont également possibles (sans les 
pleins et les déliés quand même !). En- 
fin, toujours dans les options disponibles, 
vous pouvez influer sur la grandeur de 
la réglette ou la vitesse d'écriture à l'écran . 
Ainsi, dans le cas d'une utilisation en 
milieu scolaire, la gTande réglette et la 
vitesse la plus lente permettront d'expli- 
quer à plusieurs élèves en même temps, 
tous voyant parfaitement ce qui s'affiche 
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à l'écran. Pour terminer, notons un peti 
détail qui toucheà l'esthétique : il est pos 
sible en permanence de changer la cou 
leur du pinceau d'écriture ce qui n'est pa 
négligeable pour retenir l'attention d'u; 
enfant de 6 à 8 ans. 
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Afin de ne plus avoir les pieds sur terre, tapez donc 

ce listing. Vous découvrirez le monde des étoiles et 

leurs assemblages apparents : les constellations. 
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Pour cela, vous disposez de plusieurs options : visualisation d'une c 
39 constellations présentes en mémoire, carte du ciel pour les 4 sai- 
sons, affichage des liaisons entre les constellations et visualisation des 
35 étoiles les pîus briSlantes visibles sous nos latitudes. 
Le passage d'un écran à l'autre est provoqué par l'appui d'une touche 
quelconque. 

Mode d'emploi : taper et sauvegarder le premier programme sous le nom 
«ETOILES». Le second programme est imcompleî, la suite paraîtra dans le 
numéro 32 .et s'Intitulera CIEL. 





■ ETOILES i 

ET 
• CONSTELLATIONS i 



120 '* 
130 'm 



>BC 



"»'»» >BE 

170 CLS:HODE 2 >UH 

130 PAPES 0:BQBDER 0:ISK 0,0 >UB 

190 FOR 1=0 TO 250:PLÛT lNT(RNDIlH640).lNTlRNDU)t400) >HR 
:NEXT 1 
200 LÛCATE 22,3;PfiiNT"u*i m 



210 LÛCATE 22,4:PRINT"« 
220 LÛCATE 22.S:PRiHT a » 



230 LÛCATE 22,6:PH!NT"» 



240 LOCATE 22, 7iHEIW»HtI i 

250 FOR i=l TO 22:READ a,b:LOCATE a 

m i 

260 DATA 36,11,37,11,38,11,39,11,36,1 
3,36,14,36,15,37.15,36,15,39,15,42,11,43,11,44,11,45,11 
,46,11,44,12,44,13,44,14,44,15 
270 LOCATE i,19:PRlNT"* « « i 

280 LÛCATE 1,21;PR!NT" 



b:PHlNT CKRI(143):N >EÏ 



12,36,13.37.13,38.1 )FZ 



290 LOCATE 1,23:PBINT"J 



>BF 



300 PLAT 28,104:DRAU 4,104:DRAtf 4,40:DRAW 28,40 >NL 

310 PLOT S2.104:DRAU S2,40:DRAy 76,40:DRAW 76,t04:DRA« >EF 

52,104 

320 PLOT 100.40:D8AU tO0.104:DEAU 124.40:DRA« 124,104 )¥J 

330 PLOT 148,40:DRAU 172,40:DBAU 172,72:DHAH 146,72:DRA >AR 

U 146, 104, -DRAW. 172. Î04 

340 PLOT 196,104:DRAH 228,104:PLQT 2i2,104:DRA« 212,40 >«C 

350 PLOT 276,104;DRA« 252,104:DBAW 252,40:DfiAW 276.40:P >AF 

LOT 2£2,72:DRAW 266,72 

360 PLOT 300,104:DRAU 300,40:DfiAH 324.40 >FC 

370 PLOT 348,104:DRAW 348,40:DRAU 372,40 >FH 

380 PLOT 396,40:DRAU 396,1Q4:BRAU 420,104:DRAU 420,40:P >AH 

LOT 396,72:DRAU 420,72 

390 PLOT 444,104:DRAif 476,104:PLOT 460,104:DRAW 460,40 >«V 

400 PLOT 492,104:DRAW 492,40 >VH 

410 PLOT S06,104:DBAy S08.40:DRAU 532.40:DRAtf 532,104:D >KZ 

EAU 508, 104 

420 PLOT S56,40:DRAU 5S6,104:DRAU 580,40:DRAU 580,104 >VF 



430 PLOT 604,40:DRAU 628,40:DRAU E 
U 604,104:DRAtl 628,104 
1000 RUN'clel 



;,72:DRAW 604,72iDRA >AC 




100 'HENU >|B 

HO KQDE 2:CLS:INK 0,0:PAPE8 0:B0RDEfi )GN 

120 FOR 1=1 TO 2SO:PL0T INT(RNDU)*640). JNT(RNDU)i400) >HK 

:NEXT i 

130 LOCATE 36,3:PRINT*H E N U":FOH 1=36 TO 42:L0CATE i, >FG 

4;PRINT CHR»(208):NEXT 1 

140 LOCATE 6,6;PRINT«1 - VISUALISATION D'UNE CONSTELLAT >KF 

ION" 

150 LOCATE 6,8:PR!NT"2 - VISUALISATION W CIEL AU PRIHT >LÏ 

EHPS" 

160 LOCATE 6,10:PB[NT-3 - VISUALISATION OU CIEL EN ETE" >DK 

170 LOCATE 6,12:PRINT"4 - VISUALISATION DU CIEL EN AUTO )JN 

UNE* 

180 LOCATE 6.14;PHIhT"5 - VISUALISATION DU CIEL EN HIVE >GP 

B" 

190 LOCATE 6,16:PR1NT"6 - LIAISONS ENTRE LES PRINCIPALE >E« 

S CONSTELLATIONS" 

200 LOCATE 6,t6:PfilNT'7 - ETOILES LES PLUS BRILLANTES" >CL 

210 LOCATE 6,20:PRINT"8 - FIN" >yy 

220 LOCATE 28,23:INPUT"TAPER LE NI CNOISl'îchou >W 

230 IF choisi OR choli>8 THEN GOTO 220 >FZ 

240 ON choii GOSUB 9000,5000,5600,6200,6900,3000,2000,1 )AP 

000 

250 GOTO 100 >ye 

1000 CLS:NEU 

2000 ' ETOILES LES PLUS BRILLANTES 

2010 CLS 

2020 GOSUB 2500 

2030 RESTORE 2060:G0SUB 2200 >gf) 

2040 GOSUB 15120 m 

2050 CLS:GOSUB 25O0:GOSUB 2200:GOSUB 15120:EETUBN M 

2060 DATA "Soleil",", ■-26,9",»", "Jaune'," SSOOVSiriu >UT 

s", "Grand Chien","- 1,44"," 9", "Blanche", "10000", "Arc 

turusVBouvierV- 0,04", " 37", "Rouge"," 4500*,"Wega" 

,"Lyre\" 0,06"," 27", "Blanche", "10000" 

2070 DATA "Capel la", "Cocher",' 0,09"," 45", "Jaune", ■ >KN 

5QO0","RigelV0rionV 0,19"," 900", "Blanche", "10000" 

,"Procyon", "Petit Chien'," 0,37"," U", "Jaune", " 6500 

VBItelgeuseVOrion"," 0,47*," 520VfioufeV 3000" 

2080 DATA "AltafrVAigle"," 0,78V 16", "Blanche", " >UN 

8000", "Aldlbaran", "Taureau"," 0,92"," 68", "Rouge"," 3 

500", "Antatls", "Scorpion", " 0,95"," 520", "Rouge",* 280 

OVSplca», "Vierge"," 0,96V 258", "Bleue", "20000", "F 

onalhaut", "Poiss. Aust. ' 



>KE 



>ZC 



# 



2090 DAT* " 1,16"/ 22", "Blanche", "lOOOOVPollui", "G >JP 
{■eauiV Ï.Ï6V 35', "Orange*," 4500»,"D(neb», "Cygne 
V 1,2B", "1600", 'Blanche'," 3500", "Rtgulus», "Lion"," 
1,37'," 85', 'Blanche', "12000', "Adhara", "Grand Chien", 
■ 1,49",' 700', "Bleue", "18000" 

2100 DATA "Castor", *G(ieau»*," 1.57"," 45", "Blanche", >HR 
"10000» 

2110 DATA "BellatriiVOrion",» 1,63"," 470», "Bleue»," >BJ 
19000", "El Hath", "Taureau"," 1,65"," 300", 'Bleue", '150 
00»,»Alnitak",»OrionV 1,69", "1600", "Bleue", "16000'," 
Alioth", "Grande Ourse",' 1,16V 62", "Blanche", "11000 

2120 DATA »Hfrfak»,»Pers<e"," 1,81", " 570", "Jaune"," 6 >EH 
000", "Dubhe", "Grande Ourse"," 1,83'," 105", "Orange', ' 
*500","Wezen", 'Grand Chien'," 1,85", "2000", "Jaune"," 5 
500", "Alkald", 'Grande Ourse'," 1,66"," 200», "Bleue", "1 
8000" 

2130 DATA "Henfcalinan", "Cocher"," 1.90V 72","Blanch >YK 
e", "10000", "Alh(na»,"Glieaui"," 1,93"," 65", "Blanche" 
, "11000", 'Hirzai", 'Grand Chien'," 1,96"," 320", "Bleue" 
, "22000", "Polaris", "Petite Ourse"," 2,01"," 350","Jaun 
eV BOOO" 

2140 DATA "HaialVBUierV 2,02"," 75", "Bouge", " 40 >EÏ 
00", "Alphard", "Hydre"," 2,02",' 100', "Bouge"," 3500",' 
Hizar', "Grande Ourse"," 2,04"," 80", "Blanche", "10000" 
,"Dlphada», "Baleine"," 2,06"," 60", "Orange"," 4500" 
2150 DATA "SalphVûrlon",' 2,07", "", "Bleue». "17000"," >UZ 



2200 FOB 1=1 TO 16:BEAD noi»,const,isgnt,dlst*,coul*.te )LF 
■p*:LQCATE'6,5+i:PB!NT noit:LOCATE 19,5+i:PBINT cons$:L 
OCATE 35,5-tl;Pfi!NT iagn*:LOCATE 47,5-U:PBINT dlst*:LOCA 
TE 57,S+i:PHIHT coult:LÛCATE 68,5+l:PBINT teipliNEXT i 
2210 BETUBH >EJ 

2500 FOB i=36 TO S96:PL0T i,360:PL0T l , 328 : PLOT i,24:NE >CE 

n i 

2510 FOB 1=24 TO 360:PLOT 36,i:PL0T 140,i:PLQT 252,i:PL )BG 

OT 332, i : PLOT 436,i:PL0T 516,i:PL0T 596,i:NEIT i 

2520 LOCATE 14,1:PBINT»ET01LES LES PLUS BBILLANTES VLSI >LG 

BLES A NOS LATITUDES" 

2530 LOCATE 8,4:P8IHT"ET0ILES":LOCATE 19.4:PfilNT«C0HSTE >VG 

LLATION":LOCATE 33,4:PBINT'HAGH.APP.':L0CATE 43,4:PBIHT 

»DlSTANCE(al)"tLOCATE 57,4:PBINT"C0ULEUB»:LQCATE 66.4:P 

BlHT'TÏHPllK)" 

25*0 BETUBH >FE 

3000 ' LIAISONS EKTBE CONSTELLATIONS >XF 

3010 CLS >ZD 

3030 BESTOBE 3700:e=14 >QD 

3040 GOSUB 1S0O0 >CK 

3050 LOCATE 1,22:PRINT"L1AIS0N GRANDE OURSE ETOILE POLft >U0 

IBE'îLOCATE l,23:PRINT'Le segient beta-alpha prolongl d 

e beta vers alpha de 5 fois sa longueur, ":LOCATE 1,24:P 

RINTVecontre l'ETOlLE POLAIRE' 

3060 LOCATE 40,10:PBINT CHE»(i76):L0CATE 37,U:PfilNT CH >HD 

B»(177) 

3070 PLOT 333,263:DfiAy 389,274:PLQT 37B,278:DfiAW 369,27 >QR 

4:DBA« 380,267 

3060 GOSUB 15120 >DG 

3090 CLS:BESTÛBE 37OO:e=20 >VH 

3100 GOSUB 15000 >CG 



3110 LOCATE l,24:PBlNT"l,igne permettant de trouver CASS >XE 

IOPEE" 

3115 LOCATE 40,10:PBINT CHRIU76) :LÛCATE 37,il:PfilNT CH >HE 

a»(i77) 

3120 PLOT 314,290;DRAU 392,279:PL0T 41S,273:DBA« 476,25 >Ufi 
6:PL0T 384,287:DBAW 392,279:DBAU 384,273:PL0T 466,265:D 
BAU 476,256:DBÀM 465,253 

3130 GOSUB 15120 >0C 

3140 CLS:8EST0EE 3700:e=29 >YN 

3150 GOSUB 15000 >DB 

3160 LOCATE 1,23:PBINT "Le prolongement de Alpha-Beta v >ÏB 
ers Beta periet de trouver la constellation ":LOCATE 1, 
24:PB1NT 'du LION (en Mai vers Hinuit)" 
3165 LOCATE 20,16:PBlHT'B{gulus' >DZ 

3167 LOCATE 40,10:PRINT CHBt(176):LÛCATE 37,11:PBIHT CH >HH 
fi*(1771 

3170 PLOT 269,252:DBA« 203,224:PL0T 213,235:DBAU 203,22 )P0 
4:DBAU 213,220 

3180 GOSUB 15120 >DH 

3200 CLS >ZE 

3210 BESTOBE 3700:e=35 >0G 

3220 GOSUB 15000 >CK 

3230 LOCATE 1,23:PBINT "Liaison GBANDE OUBSE - LES GEKE >GB 
AUIVLOCATE 1,24:PB1NT "(en Avril vers Hinuit)" 
3240 PLOT 302,2B4:DfiAtf 302,260:PL0T 296,266:DBAM 302,26 >VR 
0iDHA« 308,266:PL0T 300,243:DRAU 300,14O:PL0T 293,146:D 
BAU 300,140:DBAV 307,146 

3250 LOCATE 30,17:PfilNT"Pol lux":LDCATE 42, 16:PRIHT"Cast >LB 
or» 

3260 GOSUB 15120 >DG 

3270 CLS >AB 

3280 BESTOBE 3700:e=41 >QL 

3290 GOSUB 15000 >« 

3300 LOCATE 1,23:PBINT "Liaison GRANDE OURSE - LE COCHE >CG 
fi»:LOCATE 1,24;PR1NT "(en Avril vers Hinuit)' 
3310 PLOT 323,254:DRAU 386,161:PL0T 373,168:DBAU 366,16 >PV 
1:DBAU 386,170 

3320 LOCATE 51,14:PRINT"Capella" >DH 

3330 GOSUB 15120 >DE 

3340 CLS >2K 

3350 BESTOBE 3800:e=16 >W 

3360 GOSUB 15000 >DE 

3370 LOCATE 1,23:PR1NT 'Le TBIANGLE D'ETE .Bien observa >AU 
b!e et tris haut dans le ciel d'ltt":LOCATE 1,24:PBIHT 
'Liaison entre le CÏGNE.I'AIGLE et la LÏBE" 
3380 LOCATE 34,2:PBlNT"D(neb":L0CATE 54,3:PBINT"ïiaa':L >BH 
OCATE 45,16:PBlNT"Altalr" 

3390 PLOT 293,339:DBAU 336,170:PLOT 350.172:DRAU 420,33 >HK 
2:PL0T 416,341:DRAU 299,346 

3400 GOSUB 15120 >DC 

3410 CLS >ZH 

3420 BESTOBE 3810:e=10 >QE 

3430 GOSUB 15000 >DC 

3440 LOCATE 1,23:PBINT 'Liaisons permettant de retrouve >BE 
r Aldibaran (TAUREAU) et Sirius (GBAHD CH1EN)":LÛCATE 1 
,24:PRINT "8 partir d'QRSON !en Hiver)" 
3450 LOCATE 18,22:PBINT'Slrius":LÛCATE 39, 19:PRlNT"kige >EP 
1 " : LOCATE 21,8:PRlHT , BUelgeuse":LQCATE 35,8:PRINÏ"Bell 
'atrix":LOCATE 44,5:PElNT"Ald(baran":L0CATE 67,3:PRINT"L 
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es PHIades" 

3460 PLOT 230,16Û:DEAW 1Q5,6Q:PL0T 270,190:DRAW 415,310 >HZ 

:PLQT 110, 7S:Dfi*y 1Q5,60:DRAU U5,6i:PL0T 4Q5,310:DBAU 

415,310:DBAW 412,300 

3465 PLOT 511,377:PL0T 513.373.-PLGT 5I3,367:PL0T 506,37 >HF 

4:PL0T 509,367:PLOT 502,366 

3470 GOSUB 15120:RETUBN >T8 

3700 DATA 293,338,4,302,322,4,299,305,4,302,290,4,310,2 >BF 

60,4,299,254,4,207,271,4 

3710 DATA 404,278,4,401,208,3,393,299,3,382,307,3,385,3 >BH 

18,3,368,323,4.367,310,4 

3720 DATA 470,237,3,455,234,3,485,240,4,487,255,4,505,2 >NF 

58,4,496,273,4 

3730 DATA 227,173,2,230,186,2,214,196,2,202,397,2,202,1 >GQ 

83,2,185,175,5,176,243,2,173,291,4,193,247,2 

3740 DATA 306,127,4,322,132,4,351,102,2,368,89,3,347,77 >KK 

,3,313,104,2 

3750 DATA 414,158,4,422,145,2,434,121,3,414,106,3,388,1 >HR 

30,2,390,152,2 

3800 DATA 290,347,4,305,323,4,336,343,2,275,292,4,242,2 >WD 

72,2.331,292,2,367,258,2.423,340,4,412,345,2,416,333,1, 

405,326,1,405,308,2,416,308,2.343,165,4,349,173,2,337,1 

49,2 

3810 DATA 212,242,3,260.260,1,295,240,2.239,166,2,250,1 )RT 

76,2,260,185,2,290,95,3,217,93,2,92,53,3,426,318,3 

5000 'PRItfTEHPS - NORD >IH 

5005 e=175:REST0BE 5030 >BB 

5010 GOSUB 8900 >IF 

5015 LOCATE 2,1;PBIHT"C0NSTELLAT1QNS ET ETOILES VISIBLE >AZ 

5 DANS LE CIEL DE PB I NTEHPS A «OS LATITUDES 1 

5020 LOCATE 1,20:PBINT"Q":LQCATE 80,2Q:PBINT"E":L0CATE >PC 

34.2t:PRINT"ms le Nord" 

5030 DATA 65,230,3,95.236,3,89,176,1.89,164,1,83,158,2, >EU 

76, 166, 1,78, 179., 3, 113, 163, 2, 96, 124, 1,83, 140, 1,83,158,0, 

0,0,0,78,179,0,65,230,0,0,0,0 

5040 DATA 133.91,1,145,98,2,152,106,3,131,113,1.119,119 >PH 

,1,0,0,0,152,106,0,147,123,1,154,129,1.147,123,0,139,12 

8,1,0,0,0 

5050 DATA 199,120,1,199,129,1,202,140,2,188,142,1,199,1 >GH 

20,0,0.0,0 

5060 DATA 137,272.1,167,273,2,175,250,3,167,233,1,153,2 >JV 

42,1,152,231,2,127,218,2,0,0,0 

S070 DATA 254,370,0,240,357,1,224,316,1,237,285,1,230,2 >GC 

71,1,0,0,0 

5080 DATA 156,174,3,165,184,1,172,190,3.199,203,2,208,1 >VB 

96,3,221,196,2,233,194,1,0,0,0,208,196,0,191,175,2.183, 

165,1,0,0,0 

5090 DATA 242,80,0,225, 113, 3,250,116, 3, 2Ë6, 124,3,0,0,0, )BU 

225,113,0,221,152,3.0,0,0 

5100 DATA 2B5, 153.3,266, 151, 3,274.170, 3. 254, 172,2,258,1 >H0 

86,2,0,0,0 

5110 DATA 292,237,1,272,223,1,253,208,1,239,233,1,256,2 >I/T 

33,1,272,223,0,0,0,0 

5120 DATA 303,157.1,316,155,1,344,168,2,336,189,2,306,2 >JG 

13,2,308,178,1,316,155,0,0,0,0 

5130 DATA 347,80,0,344,92,1,340,108,1,338.123,3,344,133 >EV 

,1,0,0,0 

5140 DATA 365. SB, 2,389, 104, 3.412.116, 2, 0,0, 0,380,126. 3, >BA 

389,104,0,404,87,3,0,0,0 
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5150 DATA 445,138,3,445,130,1,451,118,2.443,110,2,438,1 )W 

22,1,445,130,0,0,0,0 

5160 DATA 524,108,2,506,124,2,494,146,1,476,158.2.466,1 >TZ 

46,3, 457, 157, 1,0, 0,0,545, 152,1,530,146, 2, 506.159,2, 431. 

175, 1,476, 158, 0,0,0,0, 494. 148, 0.S06, 159, 0,0,0,0 

5170 DATA 525.198,1,537,200,1,542,188,3,542,188,1.537,1 )KA 

79,1,531,175,1,525,181,1,0,0,0 

5160 DATA 560,260,0,555,254,2,536,225,2,514,231,2,516,2 JJG 

47,2,538,259,1,0,0,0,516.247,0,491,252,1.0,0.0 

5190 DATA 461,290,3,435,302,3,423,312,3,404,320,3,357,3 >2E 

32,3,365,353,3,401,342,3,404.320,0,0.0,0 

5200 DATA 320,253,3,338,2*6,1,356,247,1,367,253,1,376,2 >AX 

66.3,386,254, 2,3?7,245, 1.367,253, 0,0,0,0 

5210 DATA 372,303,1,372,290,1,406,265,1,431,241,1,416,2 >BU 

25,2,398,216,2,365,218,1,370,200,2.410,185,1,426,180,3, 

432,194,3,416,195,1,410,185,0,1,0,0 

5220 GOSUB 15000 >DB 

5222 GOSUB 15100 >DE 

S225 BESTOBE SO30:G0SUB 16000 >ïP 

5230 FOR 1=1 TO 19:BEAD a,b,noi*:LOCATE a,b:PRlNT noiJ: >GR 

NEIT i 

5240 DATA 6,16,Tau,14,19,Arl,2U6,Tri,3t,l9,And,20,l3, >ÏU 

Per,16,10,Aur,25,6,Lvn,30,10,Cai,44,14,Cep,30,16,Cas,39 

,18,Uc,52,19,CyB,59,te,LiT,66,17,Ker,70,14,CrB,62,9,8o 

o,53,5,Urta,55,12,Dra,43,9,UHi 

5270 GOSUB 15100 >dh 

5300 'PRINTEMPS - SUD >ïA 

5310 e=143:REST0RE 5350 )fiA 

5320 GOSUB 8900 >XK 

5330 LOCATE 2, 1:PRINT"CÛHSTELLATI0KS ET ETOILES VISIBLE >AZ 

S DAHS LE CIEL DE PRINTEMPS A NOS LATITUDES" 

5340 U3CATE 1,2Q:PBINT"E":L0CATE B0,2Q:PRINT"0":LÛCATE >NG 

34,21:PRINT "vers le Sud" 

5350 DATA 140,80,0,126,96,1,111,86,1.96,106,1,0,0.0 >«Z 

5360 DATA 80,200,1,89,223,3,107,211,1,0,0,0,62,230,0,69 >UT 

,223,0,73,246,0,0,0,0 

5370 DATA 154,243,1,159,262,1,182,260,1,0,0,0 >KM 

5380 DATA 159,140,3,170,158,2,180,180,2,200,186,1,213,2 >ZU 

05,2,0,0,0,134,152,1,140,166,2,164,194,2,161,216,2,0,0, 

0.180,180,0,164,194,0,0,0.0 

5390 DATA 206,115,2,224,128,2,219,142,2,203,140,2,206.1 >GL 

15,0,0.0,0 

5400 DATA 234,170,1,252,174,1,260,159,1,268,146,1,260,1 >Jï 

37,1,248,144,1,260,159,0,0,0,0 

5410 DATA 348,283,2,332,292,1,318,284,1,320,273,3,265,2 >EC 

71, 2, 230, 244, 3, 264,254. 2, 320, 2*8, 3, 330, 262, 1,320, 273,0. 

0,0,0,320,248,0,343,237,1,357,241,1,0,0,0 

5420 DATA 321,198,1,335,195,1,343,180,1.321,198,0,0,0,0 >UL 

5430 DATA 176,80,0,181,92,1.187,100,2,194,95,1,274,131, >CG 

1,284,152,2,319,150,1,356,178,3,362,194,1,372.206,1,383 

,208, 1,388, 213, 2, 401, 212,1, «00, 202, 1,392, 201, 2, 383, 208, 

0,0,0,0 

5440 DATA 413,104,1,410,113,2,407,129.1,0,0,0.384.80,0. >RU 

410,113,0,394,116,1,0,0,0 

5450 DATA 476,80,0,497,98,1,482,104,1,474,116,3,464,102 >RA 

,1,454,87,1,0,0,0,474,116,0,468,128,1,473,136,1.0,0,0 

5460 DATA 549,135,3,545,107,3,519.117,3,531,135,3,542,1 >RL 

35,3,549,135,0,556,147,3,536,170,3,531,135,0,0,0,0 



5470 DATA 467,200,3,481,206,2,0,0.0 >*ï 

5480 DATA 470,271,3,488,283,2,504,263,1,522,244,2,536,2 M 

30, 2, 522,'215, 2, 500,236, 1,489, 247,2, 470. 271, 0,0, 0,0 

5490 DATA 373,298,1,385,273,1,393,261,1,417,241,1,0,0,0 >DJ 

,393,261,0,377,239,1,0,0,0 

5500 DATA 392,368,1,376,351,1,371,338,1,0,0,0 >KB 

5510 DATA 320,314,1,318,332,1.284,326,1,0,0,0 >KC 

5520 DATA 211,343,2,189,330,1,1,0,0 >AM 

5530 GOSUB 15000 >0F 

5532 GOSUB 15100 >\U 

5535 RESTORE 5350:G0SUB 16000 >ÏZ 

5540 FOR 1=1 TO 18:READ a,b,nM»;LDCATE a.b:PRitJT nori: >GV 

NEXT i 

5550 DATA 10, 17, Lit, U, 10,Bod,22, 12,Yir,22, 17. Ci w,3Û. 13 >¥U 

,Crt,37,18,Hya,21,B,CM,26,5,CYn,3S,ll,LeQ,36,4,Lfli,43, 

3,Lyn,51,8,Cnc,3e,i2,Seï,47,19,Pup,55,18,CHa.7t,18.0ri, 

58,14,CMi,64,8,Gei 

5580 GOSUB 1S100:RETUHN >TT 

5600 ' ETE - NORD >ÏB 

5610 e=16O:REST0RE 5050 >fiF 

5620 GOSUB 8900 >ÏC 

5630 LOCATE 5, t;PR(HT*C0HSTELLAT[O(iS ET ETOILES VISIBLE >HL 

S DANS LE CIEL D'ETE A NOS LATITUDES" 

5640 LOCATE 1.20:PRINT'0";LOCATE B0.20:PRiNT , E ,, :L0CATE >QC 

34,21 :PRINT"vers le Nord» 

5650 DATA 87,115.1,71,121, 1,75, 143.3,85,158.1,86,170,2, >NU 

98, 177, 1,104, 170, 1,104, 158, 2,0. 0,0, 44, 200,0, 50, 190, 2, 75 

,143,0,0,0,0,53,215,0,74,195,2,86,170,0,0.0,0 

5660 DATA 127,80,0,116,99,1,125,112,1,129,134,1,0,0,0,1 )ÏB 



16,99,0,101.94,1,0,0,0 

5670 DATA 170,80,0,158,99,3,177,110,2,186,96,1,200,80,0 >CR 

,0,0,0 

5680 DATA 224,80.0,230.96,1,235.111,1,254,114,3,266.111 )UE 

,1,263,100,1,272,98,1.278,80,0,0,0.0 

5690 DATA 140,150,1,152,169,1.176,170,1,202,161,1,237,1 >JZ 

61, 1,266, 170, 1,2BB, 156, 1,0, 0,0 

5700 DATA 125,212,1,132,231.1,119,241,1,0,0,0 >JU 

5710 DATA 145,312.1,161,298,3,0,0,0 >AU 

5720 DATA 221,338,3.231,321,3,227,303,3,224,287,3,228,2 >Zfl 

60,3, 206,260, 3, 203.28A. 3, 22*, 287, 0,0,0,0 

5730 DATA 320,252,3,329,265,1,326,278,1.316,287,1,302,2 )hC 

93,3,311,305,2,322,297,1,316.287,0,0,0,0 

5740 DATA 266,288,1,275.293,1.281,322,1,319,350,1,354.3 >TD 

52,2,365,332,2,350,305,1,380,302,2,395,329,1,404,344,3, 

392,350,2,386,336,1,395,329,0,0,0,0 

5750 DATA 320,80,0,322,108,2,342,118,3,351,135,2,356,14 >EK 

7,1,0,0,0,342,118,0,359,89,2,362,80,0,0,0,0 

5760 DATA 317,215,1,330,199,1,344,174,1,323,161,1,314,1 )VH 

82,1,330.199,0,0,0,0 

5770 DATA 364,162,3,385,175,3,366,194,3,404,182,3,407,2 >HF 

02,3,0,0,0 

5760 DATA 416,224,1,418,236,1,408,258,2,365,255,2,356,2 >KU 

42,2,394,231,1,418,236,0,0,0,0 

5790 DATA 473,252,3,487,265,2,506,284,1,518,296,2,0,0,0 >UK 

,473,284,2,487,265,0,503,248,2,0,0,0 

5800 DATA 399,108,3,440,105,3,467,105,1,486,105,3,0,0,0 >UH 

,440,105,0,439,116,1,437,129,1,0,0,0 

5810 DATA 464,215,1,467,203,1,482,202,1,498,199,1,0,0,0 >UA 



5820 DATA 506,80,0,536,101,2,548,112,1,554,118,-1,573,13 >HB 

1,1,563,155,1,554,118,0,0,0,0,536,101,0,506,122,2,516,1 

28,3,520,134,1,518,155,1,515,170,1,0,0,0,506,122.0,504. 

143,2,502,156,1,1,0,0 

5830 GOSUB 15000 >Dj 

S832 GOSOfl 15100 >EB 

5835 BESTÛRE 56SÛ:G0SUB 16000 >IF 

5840 FOi 1-1 TO 18;READ a,b,noit:LQCATE 8,b:PfilNT nul): >GY 

HE3T 1 

5850 DATA 6,16,Leo,17,10,LHl,i7,7,CVn,10,19,Cnc,20,18,G >fiL 

ei,30,17,Aur,2S,14,Lyn,25,6,UHa,4Q,5,Dra,37,9,UM,36,12 

,Caj,41,17,Per,4B,8,CeMB,16,Cas.52,18,And.72,19,Peg,6 

l,12,Uc,65,9,Cyg 

5680 GOSUB 15100 >EE 

5900 ' ETE _ SUD >« 

5910 e=147:8EST0RE 5950 )fiT 

5920 GOSUB 8900 ^F 

5930 LOCATE 5,l:PRINT"CONSTELLAT!0NS ET ETOILES ViElELE ;HP 

S DANS LE CIEL D'ETE A NOS LATITUDES" 

5940 LOCATE l^OîPfilNT'EMJJCATE 90, 20:P81NT"0":LÛCATE >NZ 

34,21:P81HT"verB le Sud" 

5950 DATA 88,187,1, 05, 176, 1,79, 185,1, 60, 182,1, 76, 174,1, ;h0 

85,176,0,0,0,0 

5960 DATA 112,140,2,116,160,1,120.177,3,122,188,2,145,2 >TU 

06,2,0,0,0,157,158,2,120,177,0,0,0,0 

5970 DATA 86,208,1,97.206,1,110,217.1,0,0,0,110,207,1,9 )LL 

7,208,0,0,0,0 

5980 DATA 89,266,0,100,262,1,108,257,1,122,240,2,0,0,0 ;VL 

5990 DATA 178,310,3,173,302,1,173,291,2,161,285.2,164,2 >WL 

99,1,173,302.0,0,0,0 

6000 DATA 254,261,2,245,288,2.252,302,2,243,323,2,230,3 >TU 

20,2,226,334,1,0.0,0.296,266.1,278,276,2.266,304,2,264, 

332,1,243,323,0,0,0,0,252,302,0,266,304,0,0,0,0 

6010 DATA 235,235,3,228,209.2,265,158,2.295,175.2,319.1 >UL 

98,2,0,0,0,294,155,1,295,175,0,0,0,0 

6020 DATA 290,80,0,295,103,3,300,116,1,303,127,3,316,13 >ÏG 

2,1,309,152,1,320,151,2,316,132,0,330,140,3,332.116,2,3 

16,132,0,333,126,1,332,116,0.0,0,0.330,140,0.320,151,0. 

0,0,0 

6030 DATA 362,110.1,362.122,1,379,128,2,386,155,2,373,1 >BV 

76,2,353,165,1,338,169,1,0,0,0,386,186,1,373,176,0.0,0, 



6040 DATA 344,200,1,338.225, 1.353,230,2,365.233. 1,343, 2 >gx 

54,1,358,260,1,347,266,1,338,260.1,349,254,0,0,0,0 

6050 DATA 339,314,1,349,302,1,344,291,3,336,290,1.328,2 )JD 

90,1,321,293,1,320,302,1,0,0,0 

6060 DATA 416.244,1,428,260,3.422,294,1,419,314,2,309,3 JNP 

26,2,374,302,2,402,273,2,428.260,0,446,254,2,0,0,0,428, 

332,1,419,314,0,0,0,0 

6070 DATA 419,80,0,398,95,1.367,105,1,0,0,0 )HU 

6080 DATA 516,255,1,494,264.1.488.248,1,0.0,0 >Kft 

6090 DATA 599,190,0,582,192,2,542.191,3,562,177,2,608.1 >HQ 

59,0,0,0,0 

610O DATA 455, 146, 3,470,157, 1,*92, 161,2,506, 161, 1,530,1 )AN 

66,2,0,0,0,492,161,0,488.180,2,453.178,1,438,167.1,0,0. 

0,491,200,2,488,160,2,1,0,0 

6110 GOSUB 15000 m 

6120 GOSUB 15100 , K 

6130 RE5T0RE 5950:G0S0B 16000 >n 



6140 FOR 1=1 TO 16iREAD a.b.noiliLQCATE a,h:PBINT naît: JGP 

HEIT 1 

6150 DATA U5.Del,12,ll,S«.17,16,AqJ,15.B,Cve,21,9.Ly >UZ 

r,32,13,0ph,30,4,Her,40,5,CrB,45,12.Ser,33,19,Sco,52,19 

,Hya,50.17,Lib,60,17,l/ir,55,7,Boo,63.11,Cai.71,t6,Leo 

6180 GOSUB 15100:fiETURN , TP 

6200 ' AUTOMNE - HOfiG m 

6210 e=176:EEST0RE 6250 )8G 

6220 GOSUB 3900 )ÏK 

6230 LOCATE 5,1:PR1NT"COKSTELLAT]ONS ET ETOILES VISIBLE )VA 

S DANS LE CIEL D'AUTQKNE A NOS LATITUDES" 

6240 LOCATE 1.20:PR1NT-D":L0CATE 80.20:PRIHT'E":L0CATE >PH 

34,21:PRlHT"ver3 le Nord" 

6250 DATA 52,80,0,58,108,2,74,105,1,85,106,1,87,135,1,9 >ZU 

7,140,1.88,145,1,80,140.1,87,135,0,0.0,0 

6260 DATA 80,158,1,85,171,2,115,197,3,136,214,2,125,233 >HV 

,3,122,254,1,140,253,1,0,0,0,47,197,1,78.207,2,103,211, 

1,125,233,0,0,0,0,103,211,0,115,197,0,0,0,0 

6270 DATA 140.171,1,134,164,1,125,159,3,119,161.1.116,1 >JH 

65,1,116,176,1,122,183,1,0,0,0 

6280 DATA 122,86,1,144,101.3,148,142,3,152,171.3.176,18 >JR 

2,3,184, 159,3,168,138, 1,1U,101, 0,161,97,2,0,0,0,184,15 

9,0,199,159,1,0,0,0 

6290 DATA 212,134.1,232.138,3,0.0,0 ;AL 

6300 DATA 212,170,3,230,177,3, £50. !77, 3, 2fîS ; 17!,: 3,302. 1 >2X 

69,3,294,150,3,266,153,3,265,171,0,0.0,0 

6310 DATA 326,248,3,311,253.2,296,250,2,276,237.2.265.2 >AD 

27,3.254,236,2,272,250,2.276,237,0,0,0,0 

6320 DATA 297,201, 2, 28?. 214, 2, 254, 205, 2.220,217, 2.228,2 )6t 

42,3,237,261,3,270,271,2,262,296,3.209,283,1,190,278,3, 

194.261,2,207,266,1,209,283,0,0.0,0 

6330 DATA 143,317,1,149,313,1,158,326,1,0,0,0,149,313,0 >PH 
,152, 302, 3. 0,0,0 

6340 DATA 198,348,2,206,333,2,0,0.0 >AB 

6350 DATA 328,344,1,344,321.1,340,281,2,310,309,2,299,3 JJC 

26,2,328,344,0,341,344,1,0,0,0 

6360 DATA 347,231,1,367,248,1.391,260,1,404.228,1,382,2 >«K 

24,1,367,248,0,0,0,0 

6370 DATA 404,275,2,422,288,2,403.297,3,417,310,3.392,3 )HÏ 

19,3,0,0,0 

6380 DATA 355,60,0.359,92,1,380,112,1,389,144,1,360,168 >TG 

,1,388,182,1,0,0,0 

6390 DATA 465,153,2,443,170,3,455.186,3,467,192,1,467.1 >KX 

82,2,479,182,1,492,165,2,0,0,0 

6400 DATA 563,142,2,545,134.3,507,125,2.500,146,3,544,1 >BG 

46,1,563,142,0,584,140,1,574,154,1,542,205,2,544,146,0, 

545,134,0,0,0,0 

6410 DATA 560,223,1,553,230,2,541,229,3,530,217,1,524,2 >2D 

07,1,0.0,0,541.229,0,518,224,1,512,227,1,0,0,0,518,224, 

0,518,224,0,516, 217, 1,0,0,0 

6420 DATA 509,206.1.502,205,1,490,207.2,464,228.2.464,2 >UC 

42,3,^5,250,2,445,257, 1,0,0,0,464,242,0,493,235,2,502, 

232,1,0,0,0 

6430 DATA 520,254,1,512.265,3,523,271,1,534,274,1.520,2 >GF 

54,0,0,0,0 

6440 DATA 490,279,3,517,301.3,504,304,1,494,296,1,1,1,1 >UD 

6450 GOSUB 15000 >DH 

G4Ë0 GOSUB 15100 >qk 

6470 SESTOfiE 6250.-G0SUB 16000 >lï 



6460 FOR H TO 20:8EAD a.b.noiïiLÛCATE a,b:PRINT mai: JGS 

WFJÎ i 

6490 DATA 6,17, Ser, 10,11, Her, 21, 7,Lyr,16,14,Crfl, 22, 18.B >UF 

oo,Z7.18.Cïn,34,i4 f l)te.ï& ) i0,Dra s 36,9,U«i,27,4 1 C¥g,a6,4 

,Cep,43,12,Cai,50,4,Cas,55,16,Aur,50,16.Lyii,66,t9,TiU.6 

7, 10, Ari, 55, 12, Per, 61, 9, Tri, 58, 7, And 

6S00 GOSUB 15100 >M 

6510 ' AUTORKE - SUD >ÏE 

6S20 e=20Û:8£STOHE 6560 >BC 

6530 GOSUB 6900 >™ 

6540 LOCATE 5,i:P8iNT g CQNSTELLATl0NS ET ETOILES VISIBLE >ITE 

S DANS LE CIEL D'AUTOtWE A NOS LATITUDES 1 

6550 LOCATE 1,20:PE1NT"E":L0CATE 80,20:PR!Nr , 0":LÛCATE >HÏ 

34,21:PBlHT"vers le Sud' 

6560 DATA 65,60,0,72,94,1,80.104,1,97,109,1,101,96,1,10 >KD 

4,81,1,0,0,0 

6570 DATA 184,92,1,209,112,1,232,102,1,215,80,0,0,0,0 >TR 

6580 DATA 107,172,1,100.152.2,91,165.1.74,161,1,73,151, >«ï 

1,86, 146,3, 100, 152,0, 106, 145,3, 142, 129, 1, 156, 116.3, 188, 

131,3,203,140,1,212,146,1,203,164,1,169,143,2,158,146,1 

,0,0.0,158,116,0.156,99,1,0,0,0 

6590 DATA 135,220,1.131,226,2,120,230,3,106,221,1,102,2 >ÏH 

12,1, 0,0,0, 120,230, 0,93,234, 1,86, 242, 1,0, 0,0. 93,234, 0,6 

3,232,1,0,0,0 

6600 DATA 187,250,1,177.249,1,168.243,1,172,238,1.174,2 >B¥ 

26, 1,160, 224, 1,15*, 207, 1,148, 194, 1,146, 163, 1,156, 188,1, 

170,194,1,189,195,1,202.196,1,220,201,1,236.201.1.250,2 

07,1,262,209,1,263,203,1.255,195,1,245,192,1,250,207,0, 

0,0,0,262,209,0,272,218,1,0,0,0 

6610 DATA 102,260,1,105,275.2,117,275,1,133,272,1.102.2 >GJ 

60,0,0,0,0 

6620 DATA 125,302,0,168,286,3,190,278,1,212,276,3,0,0,0 XIA 

,168,266,0,166,296,1,161,306,1,0,0.0 

6630 DATA 210,236,2,269,248,2,289.239,1,295,237,1,341,2 >QU 

33,3,314,230,2,295,237,0,0,0,0,269,248,0.268,286,2.290, 

290,2,305,294,1,0,0,0,266,286,0.273,275,1,278,270,1,302 

,274,1,321,276,1.0,0,0 

6640 DATA 296,365,1,291.355,1,294,338,1,306,321,1,0,0.0 M 

6650 DATA 314,80,0,305,95,1,288,99,1.279,104.1.283.117, >DY 

3,302,121,1,332,80,0,0,0,0 

6660 DATA 392,170,1,380.177,1,355,192,2.323,206.2.310,1 >LU 

95,1,303,206,1,268,203,1,276,186,1,260,179,1,250,165,1, 

260,151,3,280,158,1,284,171.1,285.176,1,278,186,0,0,0,0 

6670 DATA 414,158,1,400,146,2,367,152,2,353,160,1,341.1 >HZ 

55,1,331,160,2,338,139,1,352,138,1.380,125,1,400,146,0. 

0,0,0 

6680 DATA 380,206,1,386,223,1,374,221.1,380,206,0,0,0.0 >«H 

6690 DATA 412,188, 2,434,203,1, «3,212,3, 452,220,2,481, 2 >UA 

19,2,0,0,0,443,212,0.462,176,2,0,0,0 

6700 DATA 410,230,1,416,242,1,412,254,1,397,259,1.399,2 >VG 

43,1,416,242,0,0,0,0 

6710 DATA 473,247,1,462,241,1,450,242,1,0,0,0,462,241.0 >PW 

,473,236,1,0,0,0 

6720 DATA 404,344,3,424.321,2,446,296,2,455,286,1.476.2 >JN 

77,2.0,0,0,407,312,2,424,321,0,449,335,2,0,0,0 

6730 DATA 507,304,3.506,297,1,506,285,2,493,281.2,494,2 m 
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96,1,506,297,0,0,0,0 

6740 DATA 524, 80, 0,530.152, 2,542,175,2,0,0, 0,576, 175,1, 

532,184,1,601,181,0,0,0,0 

6750 DATA 555, BO, 0,568,112,2, 1,0,0 

6760 GOSUB 15000 

6770 GOSOB 151O0 

E780 BËSTOfiE 6560:GOSUB 16000 

6790 FOR 1=1 TO 20:READ a,b,nait:LQCATE a,b:PRW7 noi$: 

NEIT i 

6800 DATA B,16,En,16,16,Cet.9,12.Ati, 15,10, Tri. 23,7, An 

d,23,12,Psc,38,9,Peî,40,5,Lae,38,14,Aqr,28,lB,Scu,42,19 

,PsA,51,17,Cao,59,13,Aql,46,ll,Equ.50,B,Del,61,10.See,4 

8,5,Cyg,63,9,Lyr,69,13,Her,70,17,Dph 

6810 GOSUB 15100:RETURN 

6900 ' HIVER - NORD 

6910 e=142:RE5T0R£ 6950 

6920 GOSUB 8900 

6930 LOCATE 5,i:PRINT"CÛNSTELLATI0NS ET ETOILES VISIBLE 

S DANS LE CIEL D'HIVER A NOS LATITUDES" 

6940 LOCATE 1,20:PEINT , Q ,, :LÛCATE 80,20:PRINr'E";LOCATE 

34,21:PRlNT"vers le (tord" 

6950 DATA 44,159,1,63,142,1,45,143,1,44,153,0,41,182.0, 

85,202,2,91,200,1,103,193,2,0,0,0,85,202,0,60,187,1,88, 

176,1,96,167,1,0,0,0 

6960 DATA 180.176,3,177.149,2,176,124,1,177.109,2,178,8 

4,2,0,0,0,155,149,2,177,149,0,200,151,2,0.0,0 

6970 DATA 223,113,3,215,107,1,210.98,2,197,97,2,207,109 

,1,215,107,0.0,0,0 

6980 DATA 128,207,1,147,219,1.165,224,1,176,221.1,0,0,0 



6990 DATA 212,230,1,233,245,1,282,256,2,254, 

15, 2, 212, 230, û, 209, 245, 1,0,0,0 

7000 DATA 213,266,3,206,287,3,232.283,3,233, 

91,2,0,0,0 

7010 DATA 299,373,0,295,367,2,276,357.3,263, 

,278,357,0,269,340,2,263,327,1,0,0,0 

7020 DATA 392,60.0,392,101,1,0,0,0 

7030 DATA 322,200.1,315.166.1.329.182.2.338 

00,0,313,210,1,306.230,1,320.250,3,0,0,0 

7040 DATA 364,206,1,369,199,1,360,166,1,338 

48,2.292,160.2.284,189.1,260.161,2,260.152, 

278,128,2,278,146,1,260,152,0,0,0,0 

7050 DATA 320,283.1,308.302,1.305,328,1,343. 

06,1,308,302.0,0,0,0 

7060 DATA 401,136,3,398,155,3,404,164.3,413, 

08,3,437,200,3, 430, 176,3, 413, 160, 0,0, 0,0 

7070 DATA 387,310,1,415,304,1,448,300,1,479, 

38,1,518,225,1,535,232,1,0,0,0 

7080 DATA 442,116,1,452,133,3,0,0,0 

7090 DATA 560,165,2,545,168,1,536,152.1,542, 

15,2,503.89.3,532,104,2,570.128.3,555,140,1, 

,0,0,570,128,0,584,139,1,567,153,1,0,0,0 

7100 DATA 515,152,1,510,164.1,520,179,1,0,0, 

7110 DATA 578,216,1,579,227,0,0,0,0,528,254, 

,562,253,0,0,0,0,500.311.3,0.0,0,401.362,3, 

7120 GOSUB 150O0 

7130 GOSUB 15100 

7140 RESTORE 6950:G0SUB 16000 

7150 FOR 1=1 TO 17:READ a,b,noi*:LQCATE a.l 

76 



227.2.230,2 >JH 

302.2,258,2 >HB 

,371,0,0.0,0 >UX 

>Z2 

192,3=322,2 >ZC 

139,1,308,1 >RG 

1.263.134,2, 

,322,1,338.3 >ïJ 

2.417,2 )ZU 

,266,1.431,2 JK.F 



140,3.520,1 > 
542,140,0,0 



1,554,255,1 i 
1.0,0 



PfiINT noil: >GT 



NEIT i 

7160 DATA 9, 12,Peg,19,10,Lac.l8, 16, Cyg, 28,17, Lyr, 30.13, >UN 

Cep,25,6,Cas,3B,4,Per,42,B,Cai,4i,ll ( Urti,3B,18,Dra,52,l 

l,UHB,45,19,Boo,55,16,CVn,55.8,Lyn,65,8,C[ic,62,14,LHi,7 

1,19, Léo 

7170 GOSUB 15100 >dj 

7200 ' HIVER - SUD m 

7210 e=225:8EaTûRE 7250 >BD 

7220 GOSUB 8900 >u 

7230 LOCATE 5,1:PRINT"C0nSTELLATI0hS ET ETOILES VISIBLE >0K 

S DANS LE Cia D'HIVER A NOS LATITUDES" 

7240 LOCATE 1.20:PRI(tT , E ,, :U)CATE BU,2U:PR!NT , , ':LÛCATE >RU 

34,21:PRINT"w>rs le 5ud' 

7250 DATA 50,80,0,55,98,1,52.114,1,57,124,1.67,131.1,75 m 

,135,1,62,147,1,72,151,1,65,141,1,67,131,0,0,0,0 

7260 DATA 47,166,1,47,193,1,65,166,1,0,0,0 >GC 

7270 DATA 128,182,3,135,196,1,0,0,0 MB 

72B0 DATA 106,248,3,112.271,2,137,266.1,163,262,2,177,2 >QT 

56,2,173,235,2,152,236,1,140,236,2,106,248,0,0,0,0 

7290 DATA 164,93,3,158,103,1,170,106,3,182,140,3,166,14 >ZE 

0,1,161,151,1,0,0,0,191,89,1,162,102,3,187,115,1,202,14 

3, 3, 235, 100, 2, 0,0, 0,170, 106, 0,182, 102, 0,0,0, 0,162,140,0 

,202,143,0,0,0,0 

7300 DATA 227,186,3,233,194,3,239,200,3,243,218,3,212,2 >QV 

18, 3, 227, 166, 0,227, 162, 3, 253, 169, 3, 239, 200, 0,0, 0,0 

7310 DATA 221,125,1,229,121,1,237,124,2.235,132,2.224,1 >RJ 

40,1,218,135,1,0,0,0,237,124,0,260,123,2,254,142,2,235, 

132,0,0,0,0,260,151,1,254,142,0,249,153,1,0,0,0 

7320 DATA 258,178,1,266,168,2,268,176,1,284,185,1,266,1 >CU 

88,0.0.0,0,289,185.1,314,182,1.327,164,2,0,0,0,314,182, 

0,339,175,1,352,175,1,352,176,1,368,172,1,365,171,1,362 

,156,1.376,150,1,370,142,1,362.137,1,347.142.1,335,141. 

1,323, 135, 1,314, 132, 1,307, 133, 1 

7330 DATA 295,117,1,312,110,1.354,106,3,362,39,1,375,80 >EH 

,0,0,0,0 

7340 DATA 226,312,2,229,339,3.266,35.;, 3,277,346, 1,265,3 >KT 

35,1,274,333,2,278,310,2,0,0,0 

7350 DATA 336,305,1,328,317.1,332,332,2,350.353.2,374,3 >KH 

68,3,374,332,2,374,316,1,0,0,0 

7360 DATA 292,258,3,300,267,1,343,285,2,368,240,1,338,2 >UF 

41,1,316,259,1,300,267,0,245,287,3.240,261,2,292,258,0, 

306,254,2,316.259,0,0,0,0 

7370 DATA 399,218,2,400,231,1,385,233,1,368,225,1,380,2 J»JU 

22,3,399,216,0,416,230,1,429,205,1,454,167,1,458,158,1, 

495, 142, 1, 495, 117, 2,482. i 17, 1, 467, 123, 3, 434, IR1,?, 429,1 

70.1,411,190,3,399,218.0,0,0,0,434,151,0,419,140,1,0.0, 



7380 DATA 460,80,0.456.97.1,0.0.0 >yQ 

7390 DATA 496,242,1,465,242,1,479,240,1,477,233,1,472,2 >VR 

25, 1,464, 229,1, 454.225. 1.429. 205,0, «3,206,1, 452. 209,1. 

470,207,1,481,197,1,493,191,1,502,179,1,515,177,1,524,1 

70,1,515,165,1,503,164.1,495.172,1,502,179.0,0,0,0,524, 

170,0,536,173,1,0,0,0 

7400 DATA 446,239,1,443,246,2,427,256.3,416,248,1.410,2 ;FZ 

42, 1,0,0,0, 427, 256, 0,395, 259, 1,389, 266, 1,0,0,0, 395.259, 

0,386,255,1,0,0.0 

7410 DATA 444,282,1,417,301,2,431,306,1,437,293.1,444,2 )HC 

82,0,0,0,0 

7420 DATA 434,326,3,480,291.3,502,258,2,527,247,3,0,0,0 >UA 



, 400,291, 0,465,306, 1,477, 320, 1,0,Û,Û 

7430 DATA 517,209,2,559,185,2,575,224,2,582,218,1,586,2 ; 

09,1,0,0,0,559,185,0,551,156,1,584,152.1.614,146,0,0,0, 

0,584,152,0,596,139,2,614,134,0,1.0,0 

7U0 GOSUB 15000 

7450 GOSUB 15100 

7460 RESTORE 7250:G0SUB 16000 

7470 F08 1=1 TO 18;READ a,b,nDiï:LOCATE a,b:PR!NT noit: : 

HE2T 1 

7480 DATA 10, 18,Hya,8, 15,Cnc,18,14.CHi, 18,17,Ch*a. 18.8.G 

ei,33,12,0ii,32,19,Lep,36,16,Eri,35,10,Tau,24,5,Aur,4Q, 

3,Per,52,18,Cet,59,19,Scti,50,B,Ari,50,6.Tri,53,4,Ar,d,64 

,16,Psc,67,12,Peg 

7490 GOSUB 1510Û:R£TURN 

89O0 'AFFICHAGE VOUTE CELESTE 

6910 CLS:HQDE 2 

8920 FOR 1=20 TO 620:PLOT l.60:HEXT i 

8930 FOR i=0 TO PI STEP 0.005 

6940 PLOT 320+300tCOS(i),80^300*SINll):HEXT i 

8950 RETUBt 

9000 'CHOU D'UNE CONSTELLATION 

9010 OSiMQDE 2 

9020 RESTORE 9000 

9021 FOR i=0 TO 639:PL0T i,0:PLOT i.38:PL0T i,372:NEIT 
1 

9022 FDR 1=0 TO 372:PL0T O.uPLOT 639,i:NEÏT 

9023 FOR 1=38 TO 372:PL0T 310,i:NEIT i 

9030 LOCATE 13, 1:PR[NT'CÛNSTELUT1ÛNS DE L'EHISPHERE BO 
REAL ET EQUAT0R1ALES" 



# 



9040 FDR 1=1 TO 20: READ noi»,abrl:L0CATE 2.2*i:PRlNT i >GC 
: LOCATE 6,2+i:PRlNT ncutiLOCATE 3&,2+l:PRIHT abrï:NEIT 

î 
9050 FDR i=21 TO 39:READ noil.abrt.-LOCATE 40,i-18;PRINT >RB 

1:L0CATE 44, i-18:PR!NT noi»:LOCAÏE 76, 1-lBiPRIKT abri: 
NEIT 1 

9100 DATA L'Aigle, Aql.Androaliie, And, La Baleine. Cet, li B >RB 
el ier, Ari , Le Bouvier, Bon, Le Cancer, Cnc.Cassiople, Cas, Cl 
phla.Cep.Les Chiens de Chasse, CVn.Le Cocher, Aur, La Cour 
onne Borlale.CrB.Le Cygne, Cyg, Le Dauphin.Del 
9110 DATA Le Dragon,Dra,U Fllche,3ge,Les Gtieaui.Gei.L )ÏF 
a Girafe, Cai.La Grande Ourse, UHa, Hercule, Her, L'Hydre Fe 
«elle. Hya, Le L(zard,Lac,la Licorne, flon.Le Lion,Leo,Le L 
ynn,Lyn,La Lyre,Lyr,Ûphiuchus,Oph 

9120 DATA Qrian.Ori.PCgase.Pee.PersIe.Per.Le Petit Chev >VU 
al.Equ.Le Petit Chien.CHi.Le Petit Lion.LHi.La Petite 
urse.UHi.Us Poissons, Psc, Le Se<tant,Sei,Le Taureau, Tau 
,La Tête du Serpent, Ser, Le Triangle, Tri, La Vierge.Vîr 
9170 LOCATE 10,24: INPUT'Taper le NI de la constellation >UH 

choisie 10 retour au HEHUl";choiK 

9180 IF choixCO OR choiïJ4Û THEN GOTO 9170 >JA 

9190 IF choix=0 THEN RETURN >UH 

9200 ON choiï GOSUB 10000,10100,10200,10300,10400,10500 ÎJC 
, 10600. 10700, 10800, 10900,11000, 11100. 11200, 11300. 114ÛO, 
11500, 11BO0, 11700, 11800. 11900, 12000, 12100, 12200, 12300, 1 
2400, 12500, 12600, 12700, 12800, 12900, 13000. 1310G, 13200, 13 
300, 13400, 13500, 13600, 13700. 13800 
9300 GOTO 9000 >M 

10000 ' AIGLE >CG 
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REDUCTION 
DU CODE BASIC 



Le BASIC de votre 

Amstrad est très complet 

et assez rapide, mais il 

est possible, grâce à 

certains moyens 

simples, de raccourcir 

les lignes (et donc de 

gagner de la place en 

mémoire) et d'accélérer 

certaines fonctions, 

notamment les fonctions 

d'affichage. 



V 



oyons tout d'abord comment 
réduire la longueur des lignes 



Pour réduire la longueur des lignes, on 
va supprimer un certain nombre de 
caractères Inutiles. 
En effet, dans un assez grand nom- 
bre de cas, on peut supprimer des 
caractères, comme les espaces, et 
ainsi, à chaque fois gagner 1 octet I 
Vous me direz que pour gagner 1 
octet sur 42289 , ça ne vaut pas le coup 
de se fatiguer. Malgré tout, en sup- 
primant systématiquement les carac- 
tères inutiles, sur un programme de 
40 Ko, on peut gagner entre 3 et 5 Ko, 
ce qui représente souvent un gain 
appréciable. 
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Ainsi, la ligne ; 

10_IF_a%=-l_THEN_a%=b%_ELSE_PRINT 
_«Non» (37 octets) 

peut être réduite en une ligne équi- 
valente : 

10JM=a%THEN_a%=b%ELSE_PRINT» 
Non de 32 octets, ce qui représente 
un gain de 13,5%. 



Les 2 caractères pouvant être si 
mésapparaissentdansl'exempli 
cèdent, ce sont les ESPACES i 
GUILLEMETS. 

Dans quels cas les supprimer 



■ ij juillemets ; la règle est simple, 
ils ne peuvent être supprimés que 
quand c'est le dernier caractère 
d'une ligne. 

On peut donc le faire dans les 2 cas 
suivants : 

10PRINT<Oui» k 

20 a$=0» i 

ce qui donne : « 

10PRINT«Oul \SftMft 

20 aS=»0 
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HH Les espaces : les cas sont plus fré- 
quents, mais les règles un peu plus 
compliquées. Résumons-les dans un 
tableau : 
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Appliquons ces règles dans un petit 

programme d'exemple : 

1 0_PRINT_»Etes-vous abonné à CPC ?» 

20_WHILEJNKEY$o»»:WEND: AS=»» 

30,WHILE_AS<>»O»_AND_A$<>»N»:AS= 

UPPERS(INKEY$):WEND 

40_IF_AS=»O»_THEN_PraNT_»BRAVO!»_ELSE 

_PRINT_»I1 n'est jamais trop tard pour 

bien faire...» 

Ce petit programme peut ainsi être 
optimisé de la façon suivante : 

10_PRINT»Etes-vous abonné à CPC ? 
20_WHILE»»<INKEY$:WEND:AS=» 
30_WHILE»O»<ASOR»N»>AS:AS=UPPERS 
(INKEYS) :WEND 

40JF»O»=ASTHEN_PRINT»BRAVO!»ELSE 
_PRINT»II n'est jamais trop tard pour 
bien faire... 

Pour raccourcir un programme BA- 
SIC, on peut aussi : 

• Supprimer les REM. (Si vous ne pou- 
vez les supprimer, remplacez-les par 
des : ou reculez la ligne suivante). 

• Réduire la longueur des variables 
utilisées 

• Diminuer le nombre de lignes, en 
regroupant le plus d'Instructions pas- 
sible sur une même ligne (la création 
d'une ligne prend 5 octets). De plus, 
l'exécution sera accélérée. 



• Se servir des GOSUB pour toute 
opération répétée à plusieurs endroits 
dans le programme. 

• Employer des variables entières, là 
ou elles peuvent remplacer les varia- 
bles réelles. Vous pouvez pour cela 
utiliser l'instruction DEFINI", ou le sym- 
bole % pour une variable unique. 

• Se servir des caractères de contrôle 
(nous allons revenir sur ce point). 

• Supprimer les Instructions Inutiles ! 
Le CLS, dans le cas : MODEJ :CLS est 
par exemple tout à fait superflu. 

Les caractères de contrôle 

Le «manuel de l'utilisateur» fait en ef- 
fet assez peu état de ces caractères 
(Oà 31, dans le code ASCII), mais leur 
utilisation a le grand avantage de 
réduire la longueur du code BASIC et 
d'accélérer grandement l'affichage 
de paramètres et de messages à 
l'écran. 

Pour obtenir ces caractères, tapez la 
ligne : 

FOR i=QTO 31 :?»Le caractère»x»;»;CH 
R$(l);CHR$(ï);» est obtenu en ap- 
puyant simultanément sur les touches 
:CONTROL et «;CHRS(I+64):NEXT 
Attention tout de même, ces carac- 
tères correspondant à des instructions, 
ils peuvent vous réserver quelques 
surprises si vous voulez lister ie pro- 
gramme sur une Imprimante. 

L'utilisation conjuguée des caractè- 
res de contrôle et des règles précé- 
demment évoquées permet d'accé- 
lérer sensiblement vos programmes, 
sans avoir recours à l'assembleur et 
peut libérer jusqu'à un cinquième, 
voire un quart de la place occupée 
par un programme, ce qui peut être 
très précieux. 

Sylvain Vieujot 
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PUISSANCE QUATRE permet de multiplier la surface de 
l'écran par quatre en utilisant les 64 Ko supplémentaires de 



mémoire. 



L'écran du moniteur ne permet- 
tant pas de visualiser la totalité 
des écrans, on a installé des RSX 
pour permettre le déplacement des 
pages avec les touches du clavier. Les 
Plocs peuvent être disposés de 3 
façons pour créer un écran horizon- 
tal, vertical ou carré. La deuxième 
partie du logiciel permet l'impression 
du dessin ou du texte créé à l'échelle 
1 ou 2. La troisième partie n'est utili- 
sable qu'avec un CPC modifié pour 
l'utilisation du Sème bit. La quatrième 
et dernière partie permet l'inversion 
vidéo de tout ou partie de l'écran 
visualisé mais aussi l'inversion horizon- 
tale ou verticale ainsi que le dépla- 
cement d'une zone. Toutes ces com- 
mandes peuvent être exécutées en 
mode 0,1 ou 2 sauf la commande 
d'Impression. Le scroll automatique est 
Interdit. Le logiciel doit être implanté 
à une adresse supérieure à 32767 si- 
non lors de la permutation des blocs 
on sortirait du programme. Puissance 
4 est utilisé avec un logiciel de dessin 
de circuit imprimé et il donne entière 
satisfaction, 



DESCRIPTION DES 14 
COMMANDES RSX 



l:lDOWN, vitesse 
2:1 UP, vitesse 
3:lRIGHT, vitesse 
4: JLEFT, vitesse 

Ces quatre commandes servent à 
déplacer l'écran, le paramètre vitesse 
permet un déplacement plus ou moins 
rapide, s'il est omis il prend la valeur 
1 par défaut. 

5: ICOPY, sens de transfert, numéro du 
bloc 

Cette commande copie l'écran dans 
les blocs mémoires ou inversement. Le 
1 er paramètre peut prendre la valeur 
ou 1 . Pour 0, le transfert se fait des 
blocs vers l'écran, pour 1 c'est l'In- 
verse. Le second paramètre peut 
prendre les valeurs à 4. 

:transfertavecl'emplacementréel 
dans les blocs ; 1 ;2:3:4: sont les numé- 
ros des blocs où le transfert doit s'ef- 
fectuer. 

6:\ DISPOS, disposition des blocs, 
nombre de blocs 

Le 1er paramètre donne à l'écran les 
formes suivantes. : VERTICALE, 

1 HORIZONTALE, 2 : CARRE. Le 2ème 



paramètre est le nombre de blocs à 
utiliser (minimum 2 et maximum 4). Si 
la disposition choisie est le carré, le 
nombre de blocs doit être 4, si vous 
entrez 2 ou 3, le programme génère 
lui-même !a valeur 4. 

7: ! PERMUT, numéro du bloc 
Les deux paramètres correspondent 
aux numéros des blocs que l'on veut 
permuter, aucune permutation n'est 
possible avec l'écran. 

8: 1 IMP, échelle 

Reproduit le dessin sur l'Imprimante. 
Cette commande ne fonctionne 
qu'en mode 2. Le paramètre «échelle" 
peut prendre la valeur 1 ou 2 . L'Im- 
pression à l'échelle 2 donne un des- 
sin de 640 points " 400 soit 20,32 cm * 
12.70 cm pour un seul bloc ce qui 
donne pour 4 blocs en vertical 20,32 
" 50,80cm ; à l'horizontal 81 23 ' 12,70, 
dans ce cas les blocs sont tournés de 
1 (4 de tour pour permettre une im- 
pression à la suite. Si la valeur du pa- 
ramètre est 1 , le dessin est réduit de 
moitié (320 points " 200). Si les blocs 
sont disposés en carré, la copie se fait 
automatiquement à l'échelle 1, les 
dimensions de l'Imprimante interdisant 
la copie à l'échelle 2. La copie réduite 
supprime un bit sur deux dans le sens 
horizontal. Aussi, pour obtenir une 
reproduction parfaite, les traits vertl- 




paires. Un appui sur Q majuscule ar- 
rête définitivement l'impression. 

9:j BIT8 

Permet l'Impression de l'écran en 8 
bits, si le CPC utilisé a été modifié. Le 
principe de cette routine consiste à 
détourner le vecteur pour tester le 
Sème bit et l'envoyer à l'imprimante 
s'il est à 1. 



10:1 BIT 7 

Remet tout simplement le vecteur à 
sa place si la commande précédente 
a été exécutée. 

IUliNVH 

Permet de tracer une fenêtre à l'écran 
et d'inverser horizontalement son 
contenu, la fenêtre peut contenir un 
octet ou la totalité de l'écran. 



mais l'inversion se fait verticalement. 

13:llNVV!D 

Même principe mais inversion vidéo. 

14: 1 DEPLACE 

Permet de déplacer une partie de 
l'écran sans le détruire, son utilisation 
est semblable aux commandes pré- 
cédentes. 

81 



LES 4 DERNIERES 
COMMANDES 

• Après avoir tapé la commande 
désirée, un curseur apparaît dans le 
centre de l'écran. Celui-ci peut être 
déplacé à l'aide des touches flé- 



chées ; le curseur doit toujours être 
placé en bas et à gauche de la par- 
tie à modifier. Un appui sur la touche 
COPY fixe le curseur et autorise l'ou- 
verture d'une fenêtre à l'aide des 
touches fléchées, un deuxième ap- 
pui exécute la commande, Un appui 
sur la touche RETURN confirme votre 



décision, DEL retourne au curseur. 
Lorsqu'une fenêtre a été ouverte un 
appui sur DEL autorise le déplace- 
ment : il faut de nouveau appuyer sur 
COPY pour fixer la fenêtre. A tout 
moment, un appui sur Q majuscule 
retourne au Basic, 

Michel RAYMOND 



1 BEH 111111111(111111111111111(11111111 

2 ' FAITES UNE SAISIE DES LIŒS lu A 

3 ' 690 SAUVEGARDEZ LE PROGRAMME IL 

4 ' VOUS SERVIRA POUR D'AUTRES SAISIES. 

5 ' FAITES RUN REPONDEZ AUX QUESTIONS 
S ' VOUS POUVEZ COMMENCER LA SAISIE 

7 ' DES DATAS. 

8 REH liiiiiiiiiiiiitiiiiiiiiiiiHiiiiii 
10 RED CHARGEUR DATA 

20 MODE 2:IHHDQU 10,1, 80,9, 25:UIND0ti 11, 1,80, 1,5:WIND0U 

12,1,00,6,8 
30 bl="0123456789ABCDEF' 
40 REH CHARGE LES FICHIERS 
50 REH S'IL SONT SUR LA DISQUETTE 
60 ON ERR0R GOTO 680 
70 OPENIH "SA151E-D.FIC" 
80 IHPUT l9,adi,add,adf,noc,nll,inc,nali 
00 L0AD 'SAISIE-D.BIN" 
100 CLOSE INtHEMORÏ add-iiGOTO 160 

110 L0CATE ll,l,2:INPUT 11, "ADRESSE D'IMPLANTATION : ■; 
adi 

120 add=adl(OS I1:L0CATE 11, 1,2: IHPUT 11, "M0HBRE D'OCT 
ET : ";boc 

130 IF nocH2619~adi THEN GOSUB 620:G0T0 120 
140 CLS HîlHPUT 11, 'NUMERO 1ère LIGNE : ';r,ll 
1S0 CLS HMNPUT 11, 'INCREMENT : Mnc 
160 CLS HîlHPUT 11, 'NOMBRE D'OCTET PAS LIGNE i ";noli 
170 CLS I1:HEH0RT adl-l:adf=adl+noc 
180 ON ERR0R GOTO 

190 LOCATE I2,2,1:PRINT I2,'LIGNE';TAB(32)'0CTET";TAB(7 
2) 'TOTAL' 

200 REH SAISIE DES OCTETS 
210 EVERT 1,1 GOSUB 510:CURS0R 1,1 
220 VHILE adlOadf 

230 tott="":tcod=0:CLS ll:PRINT IO,nli;TABU2) 
240 FOR f*l TO luIHZ 

250 a$=":WHLLE a*=":a»=UPPER*(INKEYI):UEHD 
260 IF INKET(8)=0 THEN GOSUB 630;GOT0 250 
270 IF INSTR{l,M,al)=0 THEH GOSUB 620:GDTÛ 250 
280 oodt-codîtaJ 

290 IF LEN(codt)=2 THEN Pli I HT I0.a*!« , ::a*-"": C Qd=yAL( 
•***cod*):codt=":tcod=tcod+eod:P0KE adi,cod:adI=adi+l 
ELSE PRINT I0,al;:al=" 
300 IF adi=adf THEH f=M:G0TO 320 
310 NETT t 
320 PRINT I0.TAHI72) 
330 REH SAISIE DU TOTAL ET VERIFICATION 
340 F0G i=l T0 4 

350 a$=":UHILE at=":al=UPPER*UHKEY*):WEHD 
360 IF INKET18)=0 THEN GOSUB 670:GOT0 350 
82 



370 IF lNSTR(l,b»,al)=0 THEN GOSUB 62O:G0T0 350 

380 PRINT 10, at; 

390 tot$=totl<al:HEXT i 

400 PRINT 10, 

410 IF ÏALtVUotDOtcod THEH GOTO 590 

420 nli=nlt+inc 

430 VEND 

440 REM SAUVEGARDE DEFINITIVE 

450 LOCATE H,l t 2:PRlNT 11, "SAISIE TERMINEE. ":CLS I0:a 

S I2:CAT 

460 LOCATE I1,1,4:L1NE IHPUT 11, "SAUVEGARDE : NOM DU PR 

OGRAMME : ";npt 

470 CLS lliLOCATE ll,l,3:PRINT 11, 'SAUVEGARDE EN COURS. 

480 SAVE "npt',B,add,t)ûc 

490 MODE 0:PAPER 5:PEN 14:CLS:L0CATE 3,12:PRIHT «»l TE 
RHIHE ■K'rEND 

500 REM SAUVEGARDE PROVISOIRE 

510 IF INKETt66K)~l AND tcod=Q AND LEH(codt)=0 THEN 52 
ELSE RETURN 

520 PRINT 11, 'SAUVEGARDE PROVISOIRE.* 
530 SAVE 'SAISIE-D.BIN",B,add,adi-add 
540 OPENOUT "SAISIE-D.FIC" 
550 PRINT l9,adl,add,adf t Doc,nli,Inc,noli 
560 CL0SEGu7;x=P0S<IO):y=VPOS(IO):PEN OiiERA/SAISIE-D. 
BAK'iPFJ 1 

570 CLEAR IHPUT: CLS 11; LOCATE IO,i,y:RETUBN 
580 REH S/P ERREUR 

590 PRINT ll,CHR*(7);CHR»(24);:CLS 11: LOCATE tl,36,l:PR 
IHT 11,' ERREUR ! » 

600 LOCATE tl,l,4iPRIHT 11, "Veuillez recouencer la lij 
ne :';nlliCH8*(24) 

610 IF adl>add THEH adi = !HT(adi-f/2Hl;CALL iBB06:GQTÛ 
230 ELSE CALL (tBB06:G0TG 230 

620 LOCATE 11,36, I:PRINT ll,CHRI(7);CHR*I24);' ERREUR ! 
";CHRt(24):F0R i=0 TO lOOOtNEIT itCLS HtKETUBN 
630 REH S/P CORRECTION 

640 IF LEH(codt)=0 AND P0S<I0)>13 THEH LOCATE I0,P0S(I0 
)-2,VP0S(IO):PRIHT 10,' ";:L0CATE IO,P0S(IO)-2,VP0S(IO 
):adi=adi-l:codl=HEÏ*(PEEK(adi)):tood=tcod-VAL("t"+cod* 
):cQd*=LEFT*lcod*,n;(=f-l:RETURH 

650 IF P0S(I0)>12 THEN LOCATE IO,POStlO)l, VPOS(IO) :PRI 
HT 10," VLOCATE IO,POS(IO)-l,VPOS(IO):cod*=":cod=0:f 
=f-t:RETURN 
860 RETURN 

670 IF P0S(I0)>72 THEN LOCATE IO,POS(IO)-1,VPOS(I01 :P81 
NT 10," VLOCATE IO,POS(IO)-l,VPGS(IO):tot*=LEFTI(tot$ 
,LEN(tQUl-l):i=I-l:RETURN ELSE RETURN 
680 REH S/P FICHIER INEXISTANT 
690 CL05EIN:CLS I0:RESUHE 110 
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700 REH mmim««nnmtMmM«i 
710 ' INFORMATION PB0G8AHHE 
720 ' IHPLANTATIOH: 40000 OU 49C40 
730 ' 2573 OCTETS 
740 ' KUHERO 1ère LIGNE: 1000 
750 ' INCREMENT! 10 
760 ' 8 OCTETS PAR LIGNE 
770 REH HiilllliiiiiiiiiiiilllHiiiiHi 
1000 DATA 01,4A,9C,21,B6,9C,CD,Dt,03F8 
1010 DATA BC,C9,76,9C,C3,BA,9C,C3,0573 
1020 DATA E7,9C,C3,19,9D,C3,45,9D,Q4A1 
1030 DATA C3,F3,8D,C3,7B,9D,C3,B3,05A4 
1040 DATA 9D,C3,9E,9F,C3,48,A2,C3,050D 
1050 DATA 7A,A2,C3,90,A2,C3,EB,A2,056i 
1000 DATA C3,32,A3,C3,5C,A3,44,4F P 03ED 
1070 DATA 57,CE,55, 00,52,49, 47, 48,0374 
1060 DATA D4.4C, 45, 46,04,43, 4F, 50,0361 
1090 DATA D9,44,49,53,50,4F,D3,50,037B 
1100 DATA 45,52,4D,55,D4,49,4D,D0,O373 
1110 DATA 42,49,54,88,42,49,54,87,0320 
1120 DATA 49,4E,56,C8,49,4E,56,D6,0378 
1130 DATA 49,4E,56,56,49,C4,44,45,02D9 
1140 DATA 50,4C,41,43,C5,00,00,00,01E5 
1150 DATA OO,0O t CD,E9,9D ( 3A,9C,9F,03C8 
1160 DATA FE,02,D8,C5,2A,92,9F,24,041C 
1170 DATA 2D,3E,C8,BC,CC,DC,9C,22,0455 
1180 DATA 92,9F, C1,FE,01,CA,5A,9D,04B2 
1190 DATA 10,E9,18,7E,3A,9C,9F,3D,D341 
1200 DATA 32,9C,9F,6C,26,00,C9,CD,0395 
1210 DATA E8 l 9D,C5 t 2A,œ,9F,25 I 2C ) D3F7 
1220 DATA 3E,C9,BD,CC,FE,9C,22,92,04DE 
1230 DATA 9F,C1,10,EE,1B,5C,3A,9A,03A6 
1240 DATA 9F,57,3A,9C,9F,BA,28,09,Q356 
1250 DATA 3C,32,9C,9F,2E,Û1,26,C7,02C5 
1260 DATA C9,E1,E1,2E,00,26 I C8,18,03BF 
1270 DATA 41,CD,E9,9D,3A,9D,9F,FE,0508 
1280 DATA 02,D8,C5,2A,90,9F,24,2D,0349 
1290 DATA 3E,50,BC,CC,3A,9D,22,90,039F 
1300 DATA 9F.C1, FE,01, 28,24, 10,EA,03A5 
1310 DATA 18,20, 3A,9D,9F,3D,32,9D,02BA 
1320 DATA 9F,6C,26,00,C9,CD,E9,9D,044D 
1330 DATA C5,2A,90,9F,2S,2C,3E,51,02FE 
1340 DATA BD,CC,60,9D,22,90,9F,C1,0498 
1350 DATA t0,EE,CD,15,9E,C3,45,9F,0425 
1360 DATA 3A,9B,9F,57,3A,9D,9F,BA,03FB 
1370 DATA 28,09,3C,32,9D,9F,2E,01,020A 
1360 DATA 26,4F, C9,E1, El, 2E,00,26, 0354 
1390 DATA SO,1B,DF,FE,02,C2,57,9F,03FF 
1400 DATA DD,7E,02,FE,03,D2,57,9F,0426 
1410 DATA 32,99,9F,67,DD,7E,00,FE,042A 
1420 DATA 02,DA,57,9F,FE,05,D2,57,03FE 



1430 DATA 9F,6F,7C,26,00,FE,00,28,02D6 
1440 DATA OB > 65,2E,00,FE,01,28,04,01C9 
1450 DATA 2E,02,26,02,22,9A,9F, 22,0105 
1460 DATA 9C,9F,C9,FE,02,C2,57,9F,04BC 
1470 DATA DD,4E,02,DD,5E,00,3E,00,02A6 
1460 DATA 89,CA,57,9F,BB,CA,57,9F,04F4 
1490 DATA 3E,04,B9,ÛA,57,9F,BB,DA,0460 
1500 DATA 57,9F,21,93,9F,E5,16,00,0344 
1510 DATA 42,19,EB,E1,09,1A,FS,7E,03BD 
1520 DATA 12,F1,77,CD,15,9E,C3,45,0402 
1530 DATA 9F,FE,01,06,01,DD,7E,00,0300 
1540 DATA D8,47,C9,FE,02,C2,57,9F,04A0 
1550 DATA DD,7E,02,32,98,9F,DD,7E,0421 
1560 DATA 0O,FE,00,20,O6,CD,15,9E,02A4 
1570 DATA C3,45,9F,FE,05,D2,57,9F,0472 
1580 DATA C6,C3,C3,76,9F,3A,99,9F,04D3 
1590 DATA FE.OO, 28, 09,FE,01, 28,18,0271 
1600 DATA CD,51,9E, 16,47, 3A,9C,9F, 0390 
1610 DATA 5F,3A,9A,9F,21,94,9F,CD,03F3 
1620 DATA A4,9E,3A,93,9F,FE,00, C4.0470 
1630 DATA CF,9E,C9,3A,9D,9F,5F,3A,0445 
1640 DATA 9B,9F,21, 94,9F, CD,A4,9E,049D 
1650 DATA 3A,91,9F,FE,00,C4,E6,9E,04BO 
1660 DATA C9,2A,9C,9F,7C,A5,21, 97,0407 
1670 DATA 9F,FE,01,C8,3A,9C,9F,2B,0406 
1660 DATA FE,01,C8,3A,9D,9F,2B,FE,0466 
1690 DATA 01,C8,2B,C9,CD,A9,9E,23,03F4 
1700 DATA 3A,93,9F,FE,00,C4,CF,9E,04ÔB 
1710 DATA 21,94,9F,3A,91,9F,FE,00,03BC 
1720 DATA C8,3A,9C,9F,FE, 02,28, 03,0368 
1730 DATA 21, 96,9F, CD,E6,9E,0E,C7,047C 
1740 DATA 3A,93,9F,FE, 00,06,21,00,0353 
1750 DATA 40,3A,93,8F,DD,21,91,9F,03DA 
1760 DATA CD,0D,9F,C9,93,5F,16,00,034A 
1770 DATA 19,E5,4E t 21,00,40,3A,91,0278 
1760 DATA 9F,85,6F,3A,93,9F,FE,00,03FD 
1790 DATA 26,06 ( 47,CD,26,BC,1Û,FB,032F 
1600 DATA 11,00,C0,3A,92,9F,DD,21,033A 
1810 DATA 90,9F, CD,0D,9F,Ë1,C9, 23,0475 
1620 DATA 4E,E5,21, 00,40, 3A,91, 9F, 02FE 
1830 DATA 85,6F,3A,93,9F,DD,21,90,03EE 
1640 DATA 9F,CD,0D,9F,E1,C9,23,E5,04CA 
1850 DATA 4E,3A,90,9F,11,00,CO,63,030B 
1860 DATA 5F, 21, 00,40^,93,», FE.032A 
1B70 DATA 00,28,06,4T,CD,26,K,iû,D234 
1680 DATA FB,3A,92,ÔF,DD,21,9i,9F,Q494 
1690 DATA CD,OD,9F,E1,C9,06,7F,ED,0495 
1900 DATA 49,47,C5,DD,4E,00,06, 00,0286 
1910 DATA C5,3A,98,9F,FE,00,28,01,035D 
1920 DATA EB,ED,B0,FE,00,C1, 26,01, 0470 
1930 DATA EB,E5,21,00,08,A7,ED,42,03CF 



1940 DATA 44,4D,E1,E9,09,DC,50,9F,0431 
1950 DATA EB,09,CB,7C,C4,50,9F,C1,04AF 
1960 DATA 10,D0,C9,E1,E1,01,C0,7F,Û4AB 
1870 DATA ED,49,3E,00,32,98,9F,C9,03A6 
1980 DATA C5,01,50,CO,09,C1,C9,21,038A 
1990 DATA 64,9F, 7E,FE,00,C6,CD,5A,046E 
2000 DATA BB,23,18,F6,22,65, 72, 72,0357 
2010 DATA 65,75, 72,20,61, 72,67,75, 031B 
2020 DATA 6D,65,6E, 74,22,00,11, 00.01E7 
2030 DATA C0,21, 00,40,06, 7F,ED,79,030C 
2040 DATA 01,00, 40,3A,98,9F,FE,00,02BO 
2050 DATA 26,01, EB,ED,B0,C3, 45, 9F.0458 
2060 DATA 50,00, C8,00,C4,C5,C6,C7,042E 
2070 DATA 00,02,02,02,02,02,FE,01,0109 
2080 DATA 38,16,DD,7E,00,FE,01,DA,0362 
2090 DATA 57,9F,FE,03,D2,57,9F,F5,04B4 
2100 DATA 3A,99,9F,FE,02,F1, 20,02,0385 
2110 DATA 3E,01,CD,C1,9F,CD,26,A2,0401 
2120 DATA C9,32,47,A2,21,FF,FF,22,0425 
2130 DATA 4S,A2,3A,99,9F,FE,02,28,036t 
2140 DATA 06,ED,5B,9A,9F,7A,63,32,03B6 
2150 DATA 44,A2,CD,26,A2,21,94,9F,03CF 
2160 DATA 06,7F,4E,E5,ED,49,3A,B9,03C1 
2170 DATA 9F,FE,01,CA,05,A1,3A,47,038F 
2180 DATA A2,FE,O2,CA,5B,A0,21, 00,0385 
2190 DATA 40,CD,CA,A1,3E,40,CD,36,03F9 
2200 DATA A2,3E,01,CD,36,A2,3E,50,0314 
2210 DATA 32,41, A2, 16,60, 3E, 04,32,021F 
2220 DATA 42,A2,E5,06,08,OE,00,7E,0263 
2230 DATA A2,26 1 05,37,CB,11,18,03,01FD 
2240 DATA AF,CB,11,CD,26,BC,10,EF,0439 
2250 DATA 79,CD,36,A2,AF,CB,1A,CB,047D 
2260 DATA 1A,E1,3A,42,A2,3D,FE,00 ( 0354 
2270 DATA 20,D5,23,3A,4l,A2,3D,FE,0370 
2280 DATA 00,20,C5,3A,99,9F,FE,02,0357 
2290 DATA CA,DB,AO,2A,3F,A2,06,06,035E 
2300 DATA CD,B6,AO,CA,C3,A0,18,Al,O5O9 
2310 DATA 21,00,40,CD,CA,A1,3E,80,0357 
2320 DATA CD,36,A2,3E,02,CD,36,A2,038A 
2330 DATA 3E,50,32,41,A2,16,80,3E,0277 
2340 DATA 08,32,42,A2,E5,06,04,OE,021B 
2350 DATA 00,7E,A2,28,08,37,CB,11,0263 
2360 DATA 37,CB,11, 18,06, AF,CB,11,02BC 
2370 DATA AF,CB,U,CD,26,BC,10,E9,0433 
2360 DATA 79,CD,3fi,A2,AF,CB,lA,El,0493 
2390 DATA 3A,42,A2,3D,FE,00,20,D1,034A 
2400 DATA 23,3A,41,A2,3D,FE,O0,20,029B 
2410 DATA C1,2A,3F,A2,06,04,CD,B6,0359 
2420 DATA AO,CA,C3,AO,18,A5,CD,26,047D 
2430 DATA BC,10,FB,3E,47,BC,C0,3E,O4O6 
2440 DATA D0,BD,C9,3A,44,A2,E1, 30,0494 
83 



2450 DATA FE,00,C8, 23,32,44, A2,3A,033B 
2460 DATA 99,BF,FE,02,C2,E0,9F,23,049C 
2470 DATA C3,E0,9F,EL,3A,43,À2,FE,0540 
2460 DATA OO,28,OE,3D,32,43,A2,26,01B5 
2490 DATA E5,06,7F,4E,ED,49,C3,4B,03FC 
2500 DATA A0,3C, 32,43, A2,23,E5,06, 0301 
2S10 DATA 7F,4E,ED,49,2A,3F,A2,CD,03DB 
2520 DATA 04,A2,C3,FC,9F,3A,47,A2,0427 
2530 DATA FE,02,CA,6A,A1,21,60,7F,03FS 
2540 DATA CD > CA,A1,3E,CB > CD,36,A2,04E3 
2550 DATA 3E,00,CD,36,A2,3E,CS,32,031B 
2560 DATA 41,A2,E5,OE,00,3E,02,32,0248 
2570 DATA 42,A2, 16,60,06,04, 7E,A2,02A4 
2560 DATA 28,05, 37,CB, 11, 18,03, AF,Û20A 
2590 DATA CB,11,CB,IA,CB,1A, 10,EE,03A4 
2600 DATA 23,3A,42,A2,3D,FE T 00,20,029C 
2610 DATA DE,79,CD,36,A2,E1,CD,29,04D3 
2620 DATA BC,3A,41,A2,3D,FE,0O,20,0334 
2630 DATA C6,2A,3F,A2,23,23, 22,3F, 0276 
2640 DATA A2,CD,C2,A1,C2,10,A1,C3,0508 
2650 DATA B3,A1,21,80,7F,CD,CA,A1,04AC 
2660 DATA 3E,90,CD,36,A2 t 3E,01,CD,037F 
2670 DATA 36,A2,3É,C8,32,4i,A2,ES,03DB 
2680 DATA 0E.0O, 16,80, 06,06, 7E,A2,01D2 
2690 DATA 28,05, 37,CB,U, 18, 03.AF.020A 
2700 DATA CB,11,CB,1A,10,FO,79 1 CD,0407 
2710 DATA 36,A2,E1,CD,29,BC,3A,41,03E6 
2720 DATA A2,3D,FE, 00,20, D6,2A,3F,033C 
2730 DATA A2,23,22,3F,A2,CD,C2,A1,03F6 
2740 DATA C2,6D,A1,3A,44,A2,E1,3D,040E 
2750 DATA FE,00,C8, 23,32, 44, A2,C3,03C4 
2760 DATA EO,9F,3E,7F,BC,C0,3E,D0,04C6 
2770 DATA BD,C9,22,3F,A2,CD, 1B,BB,042C 
2760 DATA FE,51,CA,23,A2,3E,1B,CD,0404 
2790 DATA 36,A2.3E,33,CD,36, A2,ED,03DB 
2800 DATA 5B I 45,A2,14,1C,3E,0F,BA,0279 
2810 DATA CA,14,A2,3E,03,BB,CA,1C,0362 
2820 DATA A2,3E,16 r ED,53,45,A2,CD,03EA 
2630 DATA 36,A2,3E,0A,CD,36,A2,3E,Q3O3 
2640 DATA 0D,CD,36,A2,3E,1B,CD,36,030E 
2850 DATA A2,3E,2A,CD,36,A2,3E,D4,02F1 
2860 DATA CD,36,A2,C9,U,00,00,3E,02BD 
2870 DATA 14,C3,F3,A1,1E,00,3E,15,02DC 
2860 DATA C3,F3,A1,C1,C1,C1,3E,1B,04F3 
2890 DATA CD,36,A2,3E,40,CD,36,A2,03C8 
2900 DATA 0i,C0,7F h ED,ûS,C9,CD,2E,0S3A 
2910 DATA BD,36,FB,CD,2B,BD,C9,00,046E 
2320 DATA 00,00,00,00,00,00,00,00,0000 
2B30 DATA 3A,79,A2,FE,01,C8,3C,32,038A 
2940 DATA 79,A2,2A,2C,BD ( 22,77,A2,Û369 
2950 DATA 3E,C3,32,2B,BD,21,64,A2,0342 
2960 DATA 22,ZC,BD,CS, F5,CS,CB, 7F, 04D6 
2970 DATA 20,05, Ot,00,F6, 18,03,01,0138 
2980 DATA 2Û,F6,ED,49,C1,F1,CF,00,04CD 
2990 DATA 00,00,3A, 79,42, FE, 00, C8.031B 
3000 DATA 3D,32,79,A2,2A,77,A2,22,02EF 
3010 DATA 2C,BD,3E,CF,32,2B,BD,C9,03D9 
3020 DATA CD,62,A4,ED,4fi,42,A6,0D,0400 
3030 DATA 2A,46,A6,C5,E5,E5 t 06,00 l 03AB 



3040 DATA 
3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 
3090 DATA 
3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 
3160 DATA 
3170 DATA 
3180 DATA 
3190 DATA 
3200 DATA 
3210 DATA 
3220 DATA 
3230 DATA 
3240 DATA 
3250 DATA 
3260 DATA 
3270 DATA 
3280 DATA 
3290 DATA 
3300 DATA 
3310 DATA 
3320 DATA 
3330 DATA 
3340 DATA 
3350 DATA 
3360 DATA 
3370 DATA 
3380 DATA 
3390 DATA 
3400 DATA 
3410 DATA 
3420 DATA 
3430 DATA 
3440 DATA 
3450 DATA 
3460 DATA 
3470 DATA 
3460 DATA 
3490 DATA 
3500 DATA 
3510 DATA 
3520 DATA 
3530 DATA 
3540 DATA 
3550 DATA 
3560 DATA 
3570 DATA 
3580 DATA 
3590 DATA 
3600 DATA 
3610 DATA 
3620 DATA 



09,EB,E1, 
08,41, CB, 
FI, 06, 01, 
29,60,01, 
A4,E1,3E, 
18,F3,7E, 
FF,1A,CD, 
FF, 12,23, 
01,00,06, 
79,C1,C9, 
41,A6,2A, 
4B,42,A6, 
10, 05, CD, 
C1,E1,7E, 
3A.D0.FF, 
EB,CD,26, 
El, 23, Cl, 
A4.E1.3E, 
18,F3,CD, 
A6,2A,46, 
42,A6,7E, 
10,F6,E1, 
CD,CB,A4, 
28,06,16, 
46, AS, 22, 
22,4A,A6, 
CB,A4,E1, 
E3,CD,B3, 
32,4C,A6, 
46,A6,ED, 
A6,B8,DC, 
B9,DC,D7 ( 
3A,4C,A6, 
A3,Fl,FE r 
F1,FE,02, 
FE,03,F5. 
AA T C5,3A, 
4CA6.ED. 
00,09,EB, 
3A,4C,A6, 
ED,4B,42, 
EB,CD,29. 
C9,E5,D5, 
Cl.Dl.El, 
29,BC,EB, 
C5,06,00. 
CD,26,BC, 
10,EC,C9 S 
ED,88,C1, 
EB,CD,29, 
E5,D5,C5, 
D1,E1,CD, 
BC,EB,10, 
41,A6,3C, 
A6,3E,64, 
32,45,A6, 
A6,C9,CD. 
CD,Cfl,A4 
9E.3A.41, 



3E,02,B9, 
36,F5,CD, 
DC,CA,A2, 
10,DE,E5, 
7F,BA,7A, 
CD,DF,A2, 
DF,A2,77, 
1B,1Q,EC, 
OF.CB.ll, 
CD, 62, A4, 
46,46, C5, 
,CB,38,E5, 
29,BC,10, 
,32, DO, FF. 
. 12, CD, 29 r 
,BC,BB,E1. 
,10,D0,E5, 
7F,BA,7A. 
62, A4, ED. 
A6,C5,E5, 
25,77,00, 
Cl, 23,10 
E1,3E,7F 1 
F3,CD,62 
48,A6,2A. 
E5,CD,B3 
3E,7F,BA : 
A4, CD, 15 
ED,5B,46, 
4B,4A,A6, 
C1,A3,3A, 
A3,ED,4B, 
FE,00,F5, 
01,F5,CC, 
F5,CC,06 ; 
CC, 30, A4, 
4C,A6,C6, 
.4B,42,A6, 
09,EB,C1 : 
.06,02,32, 
A6,05,CD : 
BC.EB.IO, 
05,06,00, 
CD,29,BC, 
10,EC,C9. 
ED, 80,01 
EB,CD,26 ; 
E5,D5,C5, 
M, El, CD, 
BC,EB t 10, 
06,00,0), 
26,8C,EB. 
EC,C9,3E, 
,32,43,A6, 
32,44,A6, 
,21,E6,DB. 
.45, A4, CD, 
,CD,B3,A4, 
A6,FE,02 ( 



,3F, 38 


0345 1 


,CA,A2 


047A 


,E1,CD 


Û4EE 1 


,CD,CB 


0511 


,2a, ce 


0466 


,32, DO 


04D9 


,3A,D0 


04E8 


,09,05 


03D9 | 


,10,FB 


01FF 


,ED,4B 


050E 


,E5,ED 


0494 


,C5,CB 


04AB 


,FB,EB 


03BD 


.14,77 


04B2 


,BC,E5 


04B2 


,1Û,EA 


0560 


,CD,CB 


0522 


,2a, m 


0459 


,48,41 


0457 


,ED,4B 


049E 


,29,BC 


03BE 


,ED,E5 


04AF | 


,BA,7A 


050E i 


,A4,2A 


0408 


,44, A6 


0310 


,A4,CD 


04E8 


,7A,28 


0469 


,9E,AF 


0536 


,A6,2A 


0382 


,3A,45 


0395 


, 44,46 


04C2 


,42,A6 


052F 


,CC,F1 


04DC 


,IB,A4 


0513 


,A4,F1 


054D 


,F1,18 


049F 


,01,32 


0394 


,0D,06 


0325 


,C9,C5 


0437 


,40,A6 


0318 


,29,BC 


03D7 


,F6,C1 


054F 


,ED r B0 


Û4EB 


,EB,CD 


05DD 


,E5,D5 


054F 


,D1,E1 


04DB 


,BC,EB 


0534 


,06,00 


044A 


,29, BC 


05CA 


,EC,C9 


054D 


,B8,Ct 


04EB 


,CD,26 


053F 


,00,32 


03DC 


,32,42 


02B2 


,3E,28 


02CA 


,22,46 


0369 


,79, A* 


050F 


,CD,15 


0542 


,38, ED 


03E4 



3630 DATA 
3640 DATA 
3650 DATA 
3660 DATA 
3670 DATA 
3680 DATA 
3690 DATA 
3700 DATA 
3710 DATA 
3720 DATA 
3730 DATA 
3740 DATA 
3750 DATA 
3760 DATA 
3770 DATA 
3780 DATA 
3790 DATA 
3800 DATA 
3810 DATA 
3620 DATA 
3830 DATA 
3640 DATA 
3650 DATA 
3860 DATA 
3870 DATA 
3680 DATA 
3890 DATA 
3900 DATA 
3910 DATA 
3920 DATA 
3930 DATA 
3840 DATA 
3950 DATA 
3960 DATA 
3970 DATA 
3980 DATA 
3990 DATA 
4000 DATA 
4010 DATA 
4020 DATA 
4030 DATA 
4040 DATA 
4050 DATA 
4060 DATA 
4070 DATA 
4080 DATA 
4090 DATA 
4100 DATA 
4110 DATA 
4120 DATA 
4130 DATA 
4140 DATA 
4150 DATA 
4160 DATA 
4170 DATA 
4180 DATA 
4190 DATA 
4200 DATA 
4210 DATA 



C9.2A.46, 
05,CD,BF, 
CD,29,BC, 
BE, 18,02, 

oo,OD,og, 

86,16,02, 
DF, 18,04, 
BF,A4,C9, 
0D,79,FE, 
C5,41,7E, 
C1,E1,C9, 
CA,43,9F, 
21.A5.FE, 
F2,CA,A1, 
A5,06,06, 
FE,F5,CA, 
F6,CA,A1, 
A5,FE,E0, 
CA,35,A6, 
3A,41,A6, 
32, 98,9F, 
9F,3A,43, 
A6,93,DC, 
A6,FE,01, 
05,05,00, 
22,46,A6, 
32,44, A6, 
32.43.A6, 
3A.44.A6, 
3A,44,A6, 
A5.C8.3A, 
15,3A,44, 
2A.46.A6, 
10,F9,22, 
A6,90,38, 
3E,01,32, 
A6,5F,3E, 
C9,3A,45, 
D6,A5,C8, 
26,14,34, 
46,48,06, 
ED, 42,22, 
A6,90,38, 
3E,01,32, 
A6,5F,3E, 
C9, 34,42, 
A6,93,DC, 
00,3A,41, 
2A.46.A6, 
45,A6,91, 
42,A6,81, 
42,A6,5F, 
AF,B8,C9, 
C8,FE,00, 
42,A6,78, 
30,32,41, 
A6,FE,00, 
C9, 00,00, 
00,00,00, 



AD 

A4 


cv, 
3E,( 


CB 


7E, 


CB 


FE, 


CB 


46, 


CB 


C6, 


3E 


01, 


01 


FF, 


00 


20, 


2F 


77, 


CD 


1B, 


06 


01, 


FI 


CA, 


A5 


FE, 


FE 


F4, 


60 


A5, 


A5 


FE, 


CA 


1B, 


FE 


OD, 


FE 


02, 


CD 


15, 


A6 


80, 


54 


A5, 


28 


17, 


29 


BC, 


Cl 


3A, 


C9 


3A, 


es 


3A, 


93 


«. 


60 


FE, 


41 


A6, 


A6 


60, 


C5 


CD, 


46 


A6, 


04 


28, 


43 


A6, 


ce 


93, 


A6 


80, 


3A 


41, 


45 


A6, 


00 


2A, 


46 


A6, 


04 


2B, 


42 


A6, 


50 


93, 


A6 


60, 


OF 


A6, 


A6 


FE, 


,09 


22, 


32 


45, 


,32 


42, 


3A 


45, 


,3A 


41, 


28 


08, 


,81 


FE, 


A6 


C9, 


,C8 


3D, 


00 


00, 


,00 


00, 



4B,42, 
00, B8, 
28,04, 
E5,C5, 
28,04, 
Cl, El, 
B9,C6, 
FF, 10, 
F8,C9, 
23, 10, 
BB.FE, 
FE,FO, 
GO, AS, 
F3,CA, 
CA,21, 
06,04, 
F7,CA, 
A6.FE, 
),01, 

J.3E; 

9E.C3, 
5F, 3A, 
C8,3A, 
24,46, 
Cl, 10, 
44, A6, 
43, A6, 
43, A6, 
AF.B8, 
09, D4, 
FE.01, 
32,44, 
26, BC, 
C9,3A, 
02, 18, 
C9,3A, 
47, AF, 
FE.51, 
A6,FE, 
80,32, 
46, A6, 
C9,3A, 
02, 16, 
C9.3A, 
47, AF, 
5F, 3A, 
C8, 48, 
01,28, 
46, A6, 
A6,C9, 
A6,C9, 
A6.93, 
A6,FE, 
57, ED, 
02, C8. 
57, 3A, 
32,41, 
00,00, 
0000 



A6.03FF 
C6,03F3 
CB,03F2 
06,0451 
CB.021E 
10.03E3 
CD, 0388 
FE,0539 
E5,044A 
FA, 0357 
51,05SD 
CA.046B 
FE.0582 
E1.069E 
A5.0435 
FE,04CA 
E1.06A6 
7F.058B 
X9.03A2 
£,01,0338 
43.03EF 
44,031F 
41,0451 
A6.02FA 
F9.0506 



5F, 0366 
C9.042E 
96.04D5 
28.03B5 
A6,02D5 
Cl, 0448 
43.035D 
02.01B6 
44.02A1 
86.044C 
D4.0491 
01,0463 
45,0256 
A7.02B1 
42,0362 

02, oi es 

45.02A1 
B6,03D4 

45,0349 
06.03EO 
0F,02S7 
3A,0267 
3A.039C 
3A,0386 
47,0346 
.02,0451 
4B,0388 
7A.0423 
41.02F0 
A6.03C2 
00,0009 
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Fig.6 



TI.TI.TI.TA.TA.TA 
TI.TI.TI. (S.O.S) 



n: 



Ious vous rappelons 
que cette rubrique 
n'existe que grâce à votre collabo- 
ration. N'hésitez donc pas à faire pro- 
fiter vos amis lecteurs de vos décou- 
vertes ou de vos transcendances. Fai- 
tes parvenir vos envois à AMSTAR & 
CPC - La Haie de Pan - 351 70 BRUZ. 




NEMESIS 
EXPRESS 



Vous êtes passé du 464 ou 6128 
et votre stock de cassettes (ori- 
ginales bien sûr) dort sous une cou- 
che de poussière. Eh oui, les disquet- 
tes présentant une infinité d'avanta- 
par rapport aux cassettes et l'idée 
de devoir recourir à ces dernières pro- 
voque chez vous une mélancolie pro- 
fonde doublée d'une angoisse exis- 
tentielle. Mats voilà Nemesls Express qui 
débarqué av&c sa disquette magi- 
que. Il va résoudre quasiment tous vos 
problèmes de transfert de cassette à 
disquette. Comment va-t-ll faire ? 
C'est très simple : deux faces de dis- 
quettes contiennent les utilitaires qui 
vont faire le travail pour vous. Com- 
mençons par la face A. 

Sur cette face, on trouve des utili- 
taires spécialisés dans le Speedlock. 
Le Speedlock est une protection cou- 
rante sur les cassettes et elle se mani- 
feste souvent par une bordure cligno- 
tante et par des noms de fichiers étran- 
ges comme «II». Mais comme il existe 
des tas de Speedlocks différents, Il ne 
suffit pas d'un programme pour s'oc- 
cuper de toutes les protections. C'est 
pourquoi Nemesis propose 10 routines 
uniquement pour les Speedlocks, Une 
autre question se pose alors. Com- 
ment choisir le bon programme adap- 
té ? C'est à ce moment qu'Intervient 
l'inspecteur Bonzo ou plutôt le pro- 
gramme «DETECT». Celui-ci va cher- 
cher la protection Speedlock sur la 
cassette et vous donner la ou les rou- 
tines à employer pour effectuer le 
transfert. 



Mais l'Inspecteur Bonzo n'est pas 
infaillible. Il arrive qu'il ne sache quoi 
vous conseiller et il faudra vous dé- 
brouiller seul ou presque pour trouver 
le bon utilitaire. La plupart du temps, 
il suffira d'effectuer un catalogue de 
la cassette pour déterminer le type 
de protection Speedlock utilisé. Le 
résultat sur la disquette sera constitué 
par une série de fichiers numérotés. 
Ces fichiers peuvent alors être trans- 
férés sur une autre disquette (on tra- 
vaille en effet sur la disquette conte- 
nant les utilitaires : donc la copie de 
sauvegarde est impérative). Pour cela 
vous disposez d'un utilitaire de co- 
pie de fichiers : BONZCOPY (à noter 



que vous trouverez également un uti- 
litaire de copie de disquette). Sur la 
même face de disquette, on trouve 
un autre programme de transfert in- 
titulé HP 2 et qui peut être utilisé pour 
d'autres protections complexes. 

Passons maintenant à la face B. 
Le programme Bonzo présente une 
menu permettant : le transfert des pro- 
grammes standards en Basic ou en 
binaire, la manipulation des fichiers - 
sans en-têtes (utilisant la routine sys- 
tème &BCA1), les transferts flashload 
ou encore pour les Speedlocks et enfin 
un catalogueur de disquettes. Vous 
en voulez encore ? Eh bien, sachez 
que les Bonkeys viennent à votre res- 
cousse. Ce sont de petits programmes 



(il y en a 11 I) qui s'occupent de pro- 
tections spéciales. Tout est expliqué 
dans la notice. 

Mais certains programmes trans- 
férés ne fonctionnent pas directe- 
ment, il leur faut un petit programme 
en Basic qui initialisera les encres ou 
des adresses mémoires. . . Nemesis Ex- 
press vous en propose toute une sé- 
rie prête à l'emploi. 
Finalement, il vous est fourni une liste 
d'environ huit pages contenant des 
titres de logiciels et les programmes 
utilisés pour les transférer. 
Alors, encore des problèmes de trans- 
fert ? 

Edité par Duchet 



HELPB ASIC & HELPBASE 



La programmation en Basic, si elle 
est simple, nécessite parfois une 
période assez longue de mise au point. 
La recherche des erreurs fait même 
partie du sel de la conception d'un 
programme. Deux instructions permet- 
tent le suivi en direct du déroulement 
d'un programme Basic. Il s'agit de 
TRON et de TROFF qui permettent 
d'entrer et de sortir du mode trace. 
Mais tout le monde a déjà observé 
le résultat de ces Instructions à l'écran : 
une pluie de numéros apparaît plus 
ou moins rapidement et l'on éprouve 
une certaine lassitude à essayer de 
suivre les tribulations numériques des 
nombres en folie. Alors, pas de solu- 
tion ? 

Helpbasic peut sans nul doute venir 
à votre secours : une série de com- 
mandes RSX augmentent les possibi- 
lités de l'Amstrad en ce domaine. Si- 
nalons tout d'abord que la routine inl- 
tialisant les RSX est relogeable : il ne 
devrait donc pas y avoir trop de pro- 
blèmes pour une cohabitation avec 
d'autres programmes. Les instructions 
disponibles sont au nombre de 7 : |t 
qui permet de revenir à la notice du 
logiciel; |TRON suivi d'un paramè- 
tre entre et 9 (numéro de canal) une 
fois placé à l'intérieur permet de "tra- 
cer» un listing aussi bien dans l'une des 
8 fenêtres que sur imprimante (canal 
8) ou sur disquette (canal 9). | TROFF 



effectue bien sûr l'opération d'annu- 
lation de la commande précédente. 

| LIST, Installé à l'intérieur d'un pro- 
gramme autorise la sortie du listing vers 
un périphérique (écran, imprimante, 
disquette) précisé dans le paramètre. 
Cette instruction liste le programme 
jusqu'à ce qu'il rencontre une instruc- 
tion | NOUST. On peut ainsi sortir des 
morceaux de programme sur papier 
ou sur disquette, 

IVRBASs'utiliseavec |TRON. Cette 
instruction peut être utilisée pour sor- 
tir à l'écran le contenu d'une varia- 
ble importante par exemple. Il suffit 
pour cela d'Insérer dans le program- 
me les instructions |VRBAS.O et 
| VRBAS.l (dans cet ordre), elles déli- 
miteront une zone contenant, pour 
notre exemple, un PRINT «variable», va- 
riable. A chaque fois qu'une ligne sera 
^tracée», la zone mise entre « | VRBAS» 
sera exécutée. 

ITEMP introduit lui une temporisation 
variant de à 255, L'attente peut être 
interrompue par l'appui sur une tou- 
che quelconque sauf ESC. 

Il reste un programme sur la dis- 
quette. Il s'Intitule Helpbase. Il s'agit 
d'une base de données contenant 
sur la disquette d'origine une série de 
1 1 exemples de programmes «tracés». 
Mais vous pouvez vous-même créer 
votre base de données grâce aux RSX 
nouvelles qui sont apportées par Hel- 
pbase : 1 TITLE suivi d'un paramètre 



indique le nombre de programmes 
contenus dans Helpbase. Ce chiffre 
peutvarierde 1 à 254. 

Enfin. | ECRAN utilise deux para- 
mètres pour définir à la fols le mode 
de l'écran «Exécution» et la place res- 
pective occupée par les fenêtres «Vi- 
sualisation» et «sortie du listing». Pour 
faciliter la mise en place de vos pro- 
grammes, les touches de fonctions ont 
été redéfinies. La contrainte consiste- 
ra à ne pas utiliser les lignes Inférieu- 
res à 1 00 car elles renferment le pro- 
gramme Helpbase lui-même. 

Tous les programmes cohabitent en 
mémoire et reçoivent chacun un 
numéro d'appel (placé dans un ON 
GOTO). Les programmes se terminent 
tous par un RUN qui redonne le con- 
trôle à Helpbase. 

La disquette contient suffisamment 
d'exemples pour que l'on puisse utili- 
ser assez rapidement cet ensemble 
de programmes. Mais il faut quand 
même connaître au minimum l' Instruc- 
tion d'origine TRON et son fonction- 
nement pour utiliser avec profit ces 
RSX. En fait, cet ensemble sera surtout 
profitable aux personnes apprenant 
le Basic. Elles pourront ainsi contrôler 
leurs listings et suivre l'exécution de leur 
programme. 

Edité par : TRANSFORM - 15 rue Jean 
Jaurès - 95240 CormeiUes en Parisls 
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DOUBLE 
MODE 






Ce programme ajoute de nouvelles commandes RSX au Basic 
pour pouvoir gérer deux modes à l'écran. 



Il se produit une interruption tous les 
l/300è de seconde, or l'image a 
une fréquence de renouvellement 
de 50 Hz, c'est-à-dire qu'une nouvelle 
image commence à s'afficher à 
l'écran toutes les 6 interruptions. SI l'on 
change le mode d'écran pendant le 
renouvellement de l'image, on va 
alors obtenir deux modes à l'écran. 



INIT, mode 1 . durée, mode 2 
Cette instruction initialise la routine d'in- 
terruption pour obtenir 2 modes à 
l'écran. La partie supérieure de l'écran 
est représentée par la fenêtre supé- 
rieure (ou n°=l) et la partie inférieure 
par la fenêtre Inférieure (ou n°=2). 
Le mode de la fenêtre supérieure est 
donné par le premier paramètre : 




mode 1, Le paramètre durée définit 
la hauteur de la fenêtre supérieure en 

1 /300è s ou plus simplement en quart 
d'écran. Le dernier paramètre : mode 

2 définit le mode de la fenêtre infé- 
rieure. 

• I OFF permet d'arrêter la routine 
d'interruption et de repasser au mode 
unique. 

Remarque : il est Indispensable d'uti- 
liser cette instruction avant tout ac- 
cès disque. 

• | ON remet en marche le double 
mode arrêté par | OFF. 

. | TEXT, n° fenêtre 
Place le curseur text au début de la 
fenêtre spécifiée et redéfinie les dif- 
férents paramètres d'écriture en fonc- 
tion du mode de la nouvelle fenêtre. 
Attention : l'emploi de l'instruction 
mode du Basic détruit les paramètres 
définis par | TEXT. 

• | COLOR, n° fenêtre, border (, inkO 
Oinkl (, Ink2... (,lnk!5)... })) définit le 
border et les inks d'une fenêtre don- 
née ; on doit au minimum définir le 
border, les inks pouvant êtres omises. 

Remarque : il y a, entre les deux fe- 
nêtres une ligne inaccessible. Ceci est 
dû au fait qu'elle est coupée en deux 
par la limite réelle des deux fenêtres. 

Frédéric NYER 
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10 'MELANGE DE MODE - Chargeur basic 

20 ' 

30 1=120 : HEflOiT fcBFFF 

40 FOR 1=40960 TO 41567 STEP 8 

50 9iu=0 

60 FOH ]=0 TO 7 

70 READ a»:a=VALfV4at):si»=si»+a:P0KE 

60 œn 

90 READ al:lF VALi V+aik> sui THEN PS 

eur de DATA en tigne"; I :E3*D 

100 I=1U0:*XT 

110 SAVE , raïdoubl , ,b,4AOOO,t2S8:£HD 

120 DATA AF,32,F4,A0,32,F3,AQ,2i, 458 

130 DATA 10,A0,01,14,AO,C3,Dl,BC,3B5 

140 DATA 00,00, 00,00,2S,A0,C3,24,1AC 

150 DATA Al,C3,5O,Al,C3,38,A0,C3,4B3 

160 DATA D8,Al ( C3,68,At,4F 1 CE,4F,4B2 

170 DATA 46,06,49, 4E,49,D4,43,4F, 352 

180 DATA 4C,4F,D2,54,45,58,D4,D0,332 

190 DATA FE,03,C2,50,A2,7B,FE,03,431 

200 DATA D2,54,A2,32,D6,A0,DD,7E,4CB 

210 DATA 04,FE,Û3,D2,54,A2,32,BB,3BA 

220 DATA A0,DD,7E,02,FE,O5,D2,54,426 

230 DATA A2,3C,32 ( F6,A0,47,3E,06,331 

240 DATA 90,32,F7,A0,3E,06,32,F5,3C4 

250 DATA A0,21,B0,AO,22,AA,A0,3A,3B7 

260 DATA F3 ( A0,B7,28,0G,21,F8,A0,431 

270 DATA CD,E6,BC,3E,FF,32,F3,A0,571 

280 DATA 32,F4,AO,CD,14,BC,21,F8,47C 

290 DATA A0,11,A5,A0,01,CK),81,CD,345 

300 DATA 19,BD,CD,EO,BC,1E,01,3A,398 

310 DATA F6,A0,FE,01,20,02,1E,02,2D7 

320 DATA 3E,01,C3,68,A1,3A,FS,AO,3DA 

330 DATA 3D,CA,B0,A0,32,F5,A0,C9,4E7 

340 DATA 3A,F6 ( A0,32,F5,A0,D9,7a,4E9 

350 DATA E6,FC,F6,00,«\ED,tt,D9,536 

360 DATA 21,CB,A0,22,AA,A0,21,02,31B 












i-> j,a 
IKT CHBt(7)t'err 
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630 


DATA 18 


370 


DATA A1,18,19,3A,F7,A0,32,F5,3CA 


640 


DATA IE, 


380 


DATA A0,D9,79,E6,FC,F6, 00,4F, 519 


650 


DATA 6E, 


390 


DATA ED,49, 09,21, BO.AO, 22, AA.44C 


660 


DATA 66, 


400 


DATA AO,21,13,A1,AF,06,7F,5E,307 


670 


DATA 00, 


410 


DATA £D,79,ED,59,23,3C,FE,11,41A 


680 


DATA 80, 


420 


DATA 20.F5, 09,00,00,00,00,00, IDE 


690 


DATA E4, 


430 


DATA 00,00,00,00,00,00,00,00,000 


700 


DATA 00, 


440 


DATA 00,00, 44, 4A,53,4C,4B,54,1CC 


710 


DATA FF, 


450 


DATA 55,50, 46.5E.5F, 47,52,59, 2A7 


720 


DATA 6F, 


460 


DATA 44,57,44, 44,4A,53,4C,4B, 257 


730 


DATA DD, 


470 


DATA 54,55, 5D,46,5E,5F,47,52,2A2 


740 


DATA 63, 


480 


DATA 59,44, 57,44, C2,50,A2,3A,326 


750 


DATA 2B, 


490 


DATA F3,A0,3C,C8,3A,F4,AO.B7,51C 


760 


DATA 11, 


500 


DATA C8,3E,FF,32,F3,A0,21,B0,49B 


770 


DATA 11, 


510 


DATA A0,22,AA,A0,CD,14,BC,21,3CA 


760 


DATA Al, 


520 


DATA F8,A0,3E,01,32,F5,AO,CD,46B 


790 


DATA IF, 


530 


DATA 19,BD,CD,E3,BC,C3,95,A0,53A 


800 


DATA E5, 


540 


DATA C2,50,A2,3A,F3,AO,3C,C0,47D 


810 


DATA 4F, 


550 


DATA 32,F3,A0,21,FB,A0,CD,E6,531 


820 


DATA 14, 


560 


DATA BC,3A,C3,B7,CD,0E,BC,C9,4D0 


830 


DATA OD, 


570 


DATA FE,01,C2,SO,A2,3A,F3,AO,480 


840 


DATA 07, 


580 


DATA B7,C8,7B,B7,CA,54,A2,FE,56F 


850 


DATA OA, 


590 


DATA 03,D2,54,A2,21,CF,A1,3A,396 


860 


DATA 3E, 


600 


DATA F6,A0,47,05,28, 04,23,23, 254 


870 


DATA F5, 


610 


DATA 10,FC,7B,3D,20,QC,7E,3C,2AA 


880 


DATA C3, 


620 


DATA CA,54,A2,1E,00,3A,BB,A0,373 


890 


DATA 00, 



0B,23,7E,3C,CA,54,A2,2C0 
18,3A,D6,A0,32,C3,B7,392 
26 ( 00,CD,17,BC,50,CD,351 
BB,3E,0LCi), 30,88, 3E,3B6 
00,96,86,21,00,00,11,250 
',02,CD,CF,BB,3E,00,CD,3E4 
,BB,3E,01,C3,DE I BB,FF,539 
,04,06,OA,OC,12,14,17,05D 
,FE,02,3B,73,FE,i3,30,3EB 
,47,5F,1D,CB, 23, 16, 00,236 
,19, DD,E5,E1,7E, 87,28, 4F6 
.FE,03,30,5F,C6,05,2B f 228 
( 3D,7E,20,OB,CD,1F,A2,29F 
02,A1,32,12,A1,18,09,1BA 
13,A1,CD,1F,A2,32,23,2A8 
78,B7,C8,2B,2B,7E,CD,439 
A2,12,13,10,F6,C9,C5,37A 
21,30,A2,E6,1F,06,00,2E3 
09, 7E,E1, Cl, F6, 40,09,477 
04,15,lC,18,lD,X,05,0aF 
16,06,17,1E,00,1F,0E,08B 
OF,12,02,13,1A,19,1B,08B 
03, OB, 01, 08, 09, 10, 11, 04B 
02,18, 02, 3E,O5,0E,OO,0AB 
CD,0F,B9,CD,00,B9,F1,501 
55,CB,O0,00,OO,00,00,lE3 
00,00,00,00,00,00,00,000 



DEMO 

A n'utiliser qu'après avoir le fichier RSXDOU8L.BIN s. 



r votre disquette. • 



10 MEMORY MFFFiLOAD'raidouhlVCALL fcAOOO )NE 

20 UNIT, 2, 1,0 >ZB 

30 iCOLOR.l, 2,1, 24:JCÛLÛR, 2.26, 4,5, 6, 7,8,9,10,11, 12,13, >yC 

14,15,16,17,16,20 

40 LOCATE 25,3:PfilNT'ecriture en iode 2 avec 2 couleurs )PK 

50 ITEÏT, 2: LOCATE 2.2:PfiINT 'écriture en iode 0" JZL 

60 LOCATE 3,4:PRINT 'avec 16 couleurs" >LR 

70 FOR (=1 TO 4:F0fi j=l TO 4:R£AD a:PAPER a:LOCATE 8H, >A« 

6+j:PEIIfT » »iKEXT j,i 

80 CALL idflie > FD 

90 ICOLÛR I 2,26,0,INT(RNDi27) ( IHT{RHDi27),IHT(RHDi27J,lN >PF 

T(BNDi27),IHTiBHD«27),INT(HNI)i27),INT(BND#27),IHT{RNDi2 

7),IHT(RNDi27),l(fT[RHDi27),]HT(RHDi27i,[lfT(RNDi27),[NT( 

RNDi27),IHTlRNDi27),IHT(R«D»27) 

94 



100 FOR j=l TO 20:HEn JtlF INKEÏJ=" THEN 90 m 

110 DATA 1,2,3,4,5,0,6,7,8,9,10.11,12,13,14,15 >KK 

120 ilNLT,0,2,0 >FD 

130 ICOLOR, 1,14,0, 1,2,3, 4,5, 6, 7,8,9, 10, 11, 12, 13, 14, 15 >ÏA 

140 ICÛLOB, 2,22, 0,17, 18,19, 20,21, 22,23,24, 25, 26,27, 28,2 >FQ 
9,30,16 

150 LOCATE 6,2:PR1NT "26 couleurs" >FR 

160 LOCATE 7,4:PRIKT "en iode 0" >CB 

170 LOCATE 3,10:F0R i=0 TO 15:PAPEfl i:PR[NT " ";:HEÏT >UQ 

180 ITEIT.2 >GJ 

190 LOCATE 3,4:F0R 1=0 TO 15:PAPER i:PR!KT " ';:HEn >ÏA 

200 CALL tBBia >lh 

210 iOFFiMODE 1: LOCATE 10,13:PAPEH OîPRINT 'Retour au ■ >HG 
ode unlque":PRlKT:PHIHT:CALL J.BB18 



LES INDISPENSABLES 
DE VOTRE LOGITHEQUE 
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, AFTER BURNER 


Acti vision 


Arcade 


18/20 


BOULDEUR 


B.E.P. 


Arcade 


15/20 


CORRUPTION 


Rainbird 


Aventure 


15/20 


CYBERNOIDII 


Hewson 


Arcade 


15/20 


DARK SIDE 


Incentive Software 


Aventure 


16/20 


DRAGON NINJA 


Imagine 


Arcade 


15120 


- PIRE & FORGET 


Titus 


Arc /Simulation 


16/20 


GAMEOVERII 


Electronic Arts 


Arcade 


16/20 


GUNSHIP 


Microprose 


Simulation 


15/20 


LE MANOIR 


Lankhor 


Aventure 


17/20 


DE MORTEVIELLE 








" OPERATION WOLF 


Océan 


Arcade 


16/20 


ROBOCOP 


Océan 


Arcade 


15/20 


SAVAGE 


Firebird 


Arcade 


17/20 


SKYX 


Legend Software 


Arcade 


15/20 


TITAN 


Titus 


Arcade 


16/20 


TOTAL ECLIPSE 


Incentive Software 


Aventure 


15/20 



1^1 




Les sorties de 
nouveaux 
logiciels se 
ralentissent toujours un 
peu en février et mars de 
chaque année ; aussi, 
nous avons décidé d'en 
profiter pour vous 
présenter un dossier 
regroupant tous les 
logiciels qui ont obtenu 
dans nos colonnes une 
note supérieure ou égale 
à 15 durant ces 6 derniers 
mois. Pour nous, cette 
note représente une 
appréciation assurant une 
qualité du logiciel et un 
intérêt certain suivant le 
genre que vous adorez. 
De plus, pour rendre ce 
dossier plus complet, 
nous vous livrons des 
conseils de jeu pour 
chaque titre présenté et, 
pour certains, vous 
trouverez même des 
listings pouvant 
dispenser des vies 
infinies, listings présents 
dans notre rubrique 
«Vous avez dit astuces ?». 
11 ne nous reste plus qu'à 
vous dire une seule 
chose : n'hésitez pas à 
vous régaler avec tous ces 
indispensables ! 



AFTER BURNER 



Le hasard du classement par ordre al- 
phabétique nous fait ouvrir ce dos- 
sier avec un logiciel d'une qualité superbe 
qui nous rappelle la version Sega. De quoi 
s'agit-il ? Aux commandes de votre F-14 
préféré vous prenez les airs pour accom- 
plir une mission de longue haleine pour 
laquelle vous disposez d'un plein d'es- 
sence, de munitions et de missiles. Les 
attaques produiront de jour comme de 
nuit avec des phases intermédiaires de 
réapprovisionnement (au 3ème niveau, 
5ème niveau, 9ème niveau. . . ). Ce qui est 
frappant avec After Burner, c'est la qua- 
lité et la vitesse de l'animation et des 
couleurs utilisées ; bien entendu, pour " 
obtenir ce résultat, ce sont les décors qui 




en ont quelque peu pâti mais ceci consti- 
tue à notre avis le meilleur choix qui 
pouvait être effectué. 



Pour bien jouer, il faut posséder des qualités 
que nous ne pouvons pas vous inculquer : ce 
sont la dextérité, la présence d'esprit et la. 
rapidité d'action ; mais les conseils suivants 
peuvent vous aider à les améliorer. Tout 
d'abord, tous les avions du même type que 
ceux de la première attaque peuvent être dé- 
truits avec le tir continu ; dors dans la me- 
sure du possible, ne gaspillez pas vos missi- 
les qui sont comptés. Ensuite, gardez la tête 
froide face aux avions tirant des missiles ; pour 
cela, ne vous agitez pas dans tous les sens 
mais ne bougez pas jusqu'à ce que vous soyez 
localiséet que les missiles soient partis. Alors, 
allez vite dans la direction opposée.. . 
Enfin, pour le niveau où vous êtes attaqué 
par derrière par un avion mitrailleur, 
bloquez-vous en haut de l'écran, vous serez 
inaccessible. 

Edité par : Activision 
Prix indicatif : K7, 99 F 
DK, 149 F 



BOULDEUR 

Voici la preuve par A+B qu'il est pos- frayer un chemin au travers des murs et 

sible de jouer avec un jeu d'arcade et des pierres pour atteindre la sortie. 

d'être obligé de se creuser les méninges... Bouldeur a des graphismes soignés, une 

bonne animation, 72 tableaux PLUS un 

Bouldeur est inspiré du célèbre Boulder éditeur de tableaux qui vous permet de 

Dash et il s'agit au fil des tableaux de se créer les vôtres . W' 



Chaque tableau pourra être résolu avec une 
dose de réflexion préliminaire ; utilisez donc 
l'éditeur de tableaux permettant de les visua- 
liser pour vous en imprégner. Par ailleurs, 
sachez que lorsque vous hésitez entre plusieurs 



portes dans un tableau, la plus 
évidente n'est pas forcément la 
bonne. 

Edité par: B.E.P. 

Prix indicatif : DK, 120 F 



CORRUPTION 




Vous venez tout juste d'être promu 
associé d'une grande compagnie 
d'électronique. 

Votre vie va se trouver modifiée à cause 
de cela, mais pas vraiment comme vous 
l'espériez. 

En effet, votre arrivée dans cette société 
ne semble pas vous apporter toutes les 
joies et tous les avantages dus à votre rang. 
Il vous semble même que l'on vous tienne 
un peu à l'écart en ne vous mettant pas 
au courant des affaires traitées. 
Les secrétaires à votre disposit 
blent n'être là que pour vous empêcher 
d'accéder aux documents importants. 
Vous êtes même privé de téléphi 
Décidé à en savoir plus, vous commen- 
cez à mener votre enquête dans les dif- 



férents locaux de la boîte et vous n'allez 
pas être déçu par vos découvertes. 

En fait, vous découvrez un véritable 
complot monté contre vous. 



Le premier objet important est le sac de dro- 
gue que vous trouvez sous le «cubide». Ra- 
massez toutes les preuves et rendez- 
dans le parking. 
Un autre document 



faut prendre le tournevis de votre boîte 
à gant pour briser la vitre de la voiture 
suédoise. 

La cassette doit être écoutée sur votre 
autoradio. 

Dans les rues, faites bien attention aux 
feux : les voitures n'hésiteront pas à se 
jeter sur vous. 

Beaucoup plus tard au casino, les jeux 
ont des résultats pas du tout aléatoires. 
Suivez la partie à chaque coup joué pour 
importante. 
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Il y a sans conteste deux qualités 
que nous pouvons reconnaître à 
Hewson : ce sont les couleurs et l'ac- 
tion. Cet éditeur nous l'avait déjà 
montré avec Cybernoïd et il a réci- 
divé avec le numéro 2. Le principe 
dejeuesttoujoursleméme : vous êtes 
aux commandes d'une puissante ma- 
chine de combat et devez surmon- 
ter tous les obstacles et les ennemis 
qui se présentent à vous et passer 
ainsi les écrans les uns après les au- 
tres. II faut noter que dans Cybemoïd 
II, votre vaisseau a de nouvelles 
propriétés mais elles ne seront pas 
de trop car les ennemis sont agres- 
sifs et ont tous une méthode diffé- 
rente d'attaque. C'est cette diversité 
qui est séduisante dans ce logiciel 
d'autant plus que la qualité des gra- 
phismes, des couleurs et de l'anima- 
tion sont là pour compléter le ta- 



OlD 



Avant toute chose, il faut savoir que Cyber- 
noïd II n'est vas facile et qu'il va vous falloir 
beaucoup de dextérité et de persévérance pour 
réussir à dépasser les 3 ou 4 premiers écrans. 
Sachant qu'il y en a plus de 50 sur 4 niveaux 
différents, vous imaginez bien ce qui vous 
attend ; pour vous défendre, vous avez à vo- 
tre disposition 7 types d'armes (accessibles 
par les chiffres là!) qui trouvent leur utili- 
sation à des instants précis : «Bombs» en règle 
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générale, «Time» laisse des bombes à 
retardement, «Shield» vous rend invul- 
nérable provisoirement (dommage qu'iln'y 
en ait qu'un mais c'est efficace contre les che- 
nilles), «Bounce» lance des petites boules vertes 
dans tous les sens ce qui est très efficace, 
oSeeker» tire en biais, «Smart» fait le grand 
ménage mais également une seule fois et, enfin, 
«Track» suit le bord de l'écran et nettoie en 
douceur. . . Seules la pratique et l'expérience 
vous permettront de sélectionner les bonnes 
armes mais vous n'avez que 4 vies et le temps 
pour chaque niveau est compté alors si vous 
chutez toujours au même endroit et que vous 
voulez voir les 4 niveaux avant de vous re- 
trouver au premier, redéfinissez les touches 
en début de jeu avec O.R.Get Y. Vous se- 
rez alors invulnérable mais sachez quand même 
que la dextérité reste de mise si vous voulez 
progresser... 

Editépar -.Hewson 
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La planète Evath est menacée par une 
arme redoutable : un canon laser ins- 
tallé sur une des lunes du système. Ce 
canon est alimenté en énergie par un ré- 
seau de capteurs solaires. Un héros se pro- 
pose de se rendre sur la lune Tricuspid 
et de désactiver le réseau. 
Malheureusement, les anciens habitants 
ont laissé des pièges à la surface de Tri- 



Cela paraît évident : 
faire un 
détaillé 

symboles pour le ra- 
vitaillement et 
l'énergie. 
Gardez toujours 
suffisamment de carburant pour «grimpera 
dans les souterrains jusqu'au niveau des trap- 
pes. Les souterrains sont accessibles à partir 
du premier écran en entrant dans la maison. 
Lapremière pièce contient une table, deux pa- 
rallélépipèdes rouges ainsi qu'un l 
sur le mur. 



Les trois derniers objets sont des 
d'énergie. On accède à l'autre pîèt 
croupissant pour passer par la petite 



De l'autre côté, il faut tirer sur le tapis pour 
faire apparaître la trappe. 



Une fois dans le souterrain (du côté 

«light») 

il faut rejoindre l'»Eauator tunnel» pour 

atteindre le secteur Obéron où deux ECD 

attendent d'être détruits. 

N'oubliez pas de tirer sur les objets ren- 
contrés : cela permet parfois de révéler 
des mécanismes cachés (les pyramides aui 
répartissent l'énergie, les p0> tes . les tn^'s 
porteurs). 

Enfin, observez la démo, vous y trouve- 
rez des détails intéressants. 

Edité par: Incentive Software 
Prix indicatif : Non communiqué. 
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Voici une bonne adaptation du jeu 
d'arcade sur CPC où vous pouvez 
goûter avec plaisir les graphismes colo- 
rés et la rapidité d'action qui vous assure 
une pression permanente. 
Suivant un ordre de difficulté croissant, 
vous avez 7 niveaux différents à accom- 
plir avec à la fin de chacun d'eux un 
monstre à anéantir. 

Est—il besoin de vous préciser qu'une 
bonne pratique du joystick est requise ? 




les 1er et 4ème 
ice dans le haut 
si les méchants 

srépituncoup 
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Quand vous le pouvez, dan 
tableaux, évoluez de préfère 
de l'écran, vous éviterez ai 
toutous noirs. 
Pour le 1er monstre, tapez a 
à droite, un coup à gauche, il n 
jour. 

En ce qui concerne le second tableau, suivez 
bien le rythme du scrolling et ne descendez 
surtout pas. 

Un petit tuyau pour la première apparition 
de la farouche amazone (coriace, celle-là !) : 
tenez-vous au début de la 2ème remorque, 
ainsi elle se présentera juste devant vous et 
vous n'aurez plus qu'à frapper... 
Le 3ème tableau constitue un passage diffi- 
cile dans le logiciel sauf si vous appliquez la 
méthode suivante : dès que v 
plongez-vous dans l'eau, vo 
presque inaccessibi 
autant de continuer à frapper 



mbliez pas pour 



Quant au monstre de cette partie, 
coincez-le par exemple en bas à gauche 
del'écran. Vous pourrez ainsi le détruire 
sans qu'il réussisse à se dédoubler. 
Enfin, en règle générale, vous anéanti- 
rez les monstres toujours de la même ma- 
nière : frapper une fois, se mettre hors 
de leur portée, revenir, frapper., , 

Edité par : Imagine 
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FA#?F & FORGET 



Vous et votre bolide répondant 
au doux nom de Thunder Mas- 
ter êtes investis de la délicate mis- 
sion de parer à tout conflit mondial. 



Pour cela, vous disposez d'un plein 
d'essence et de missiles à propulsion 
tétranucléaire guidés par fréquence 
vocale indécodable ; par ailleurs, 
votre champ d'action est très impor- 
tant car, sur 3 niveaux de difncuitë 
croissante, vous n'avez pas moins de 
18 conflits à appréhender. 

Parcourant ainsi le monde, vous vivez 
votre aventure sur toutes sortes de 
décors de fond : la neige, le désert, 
la verdure... les ennemis que vous 
rencontrez sont au sol, tanks ou pos- 
tes d'armes fixes, ou dans les airs, hé- 
licoptères ; il faut également se mé- 
fier des obstacles naturels et 



rochers et surveiller l'apparition de petits cônes bleus 
ont un double effet : refaire un plein de carburant et 
troyer des points de bonus. . . 

Fire & Forget a l'avantage d'allier l'action et la simula- 
tion avec des graphismes de bonne qualii 
mation très rapide. 



Bien entendu, il est fondamental de bien contrôler le 
véhicule et sa vitesse et il est très important de récupé- 
rer un maximum de bonus en se méfiant en priorité 
des postes d'armes fixes. 




Voici un truc infaillible pour 
atteint par ces derniers : dès le début de 
la course, vous mettez plein pot et vous 
vous calez à l'extrême droite de l'écran. 



Ensuite, vous vous autorisez ai 
écarts pour les réserves de carburant. 

Par contre, si vous souhaitez une 
réserve constante d'essence sans ef- 
fort pour vous permettre de «batifo- 
ler» un peu plus, rendez-vous direc- 
tement dans notre rubrique : «Vous 
avez dit astuces ?». 



Edité par :Titus 
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Ce second épisode met à nou- 
veau en scène Arkos, servi leur 
dévoué de Gremla la cruelle 
qui s'était rebellé contre 
celle-ci. 
En fait, 

trouver Arkos qui est in- 
trouvable, et pour cause, puisqu'il est retenu prison- 
nier sur la planète-prison Phantis. Cette mission est 
divisée en 2 parties avec en fin de Ire partie, un code 
absolument nécessaire pour accéder à la 
seconde. 

Pour réussir à traverser les 10 zones qui 
posent Came OveT II, une bonne pra- 
tique du joystick est nécessaire sur- 
tout pour la seconde par- 



equi est plusdif- 




Vous pénétrez ensuite dans des grottes 
où une bonne dose de dextérité permet 
d'atteindre le marécage après avoir ter- 
rassé de redoutables serpents qui doivent 
ir 3 tirs dans la tête. . . 



fiait 

Quant aux graphismes, 
ils sont colorés et l'animation 
est de bonne qualité quelle que soit 
traversée ; avant de passer 
à quelques conseils, notez bien le 
code qui vous permettra de tester vos 
capacités dans la seconde partie même 
vous n'avez pas atteint la fin de la pre- 
mière : 84187... 



Le début de la partie commence par un shoot 
them up ; il faut donc, avec un peu d'expé- 
:,préoenir l'arrivée des ennemis afin de 
les détruire avant qu'ils aient pu faire feu. 

La première zone est de même style et vous 
devez absolument passer au-dessus des bou- 
les incandescentes de magma en étant rapide. 



Dans le marécage, ayez des yeuxpartout 
devant, derrière et en haut d'autant plus 
que votre monture n'est pas très rapide ! 

Quant à la seconde partie, elle est acces- 
sible jusqu'au moment où vous dispo- 
sez du turba-laser à ions et du chargeur 

as >./n >!.<!>■;<■• -i-nsniù' il (nui ■/: mon U:r r-mr 
la droite pour passer à la partie où se 
trouve la porte bleue. 

Ce passage est délicat et il faut vous 
avancer au maximum avant de sauter. 
Un dernier conseil : cherchez tous les 
cœurs vous donnant des vies supplémen- 
taires, vous en aurez besoin ! 

Edité par : Electronic Arts 
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GUNSHIP 



w 



Gunship, c'est le nom de code de 
cette redoutable machine de 
guerre qu'est l'hélice Apache 
AH-64A. 

A ses commandes vous allez devoir 
accomplir un grand nombre de mis- 
sions et, si vous réussissez, vous 
pourrez faire une belle moisson de 
médailles (le rêve du militaire, non ?). 



B 



Dans un premier temps, accolez les m 
sians d'entraînement qui vous sert 

Avec elles, vous apprendrez à mari 

l'hélico. Les principales commandes se 



le «pas collectif» ouï réglera la montée ou la 
descente de l'hélico. Pour la translation, vous 
utiliserez le «pas cyclique» qui abaisse ou relève 
le nez de l'hélico. 

Quand le nez pique, la vitesse s'accroît mais 
parallèlement il faut veiller à conserver l'al- 
titude au moyen du «pas collectif». Atten- 
tion ànepasvoler trop haut (300 pieds maxi- 
mum). 

Comme l'Apache n'est pas un hélico de tou- 
risme, une bonne utilisation du système d'ar- 
mes est indispensable. 

Ne tirez pas n'importe quoi sur n'importe 
quelle cible (à ce propos, veillez à ne pas dé- 
truire vos alliés). Les canons sont efficaces 
contre les troupes d'infanterie mais inopérants 




sur des chars ou un bunker ! Pré- 
férez missiles et roquettes dans 
ces cas précis. 

Ne négligez pas votre défense : les missiles 
sol-air et les avions ou hélicos ennemis sont 
redoutables. Conservez un œil sur l'écran radar 
et sur les indicateurs de rr 



N'oubliez jamais que le nombre de points et 
vos promotions sont conditionnés par le dan- 
ger des missions acceptées et... par le retour 
sur une base amie. 

Bons vols aux commandes du Gunship / 

Edité par : Microprose 
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LE MANOIR 

DE 

MORTEVIELLE 

Réaliser un logiciel d'aventure doté 
d'une bonne synthèse vocale, voici un 
pari eaené par Lankhor. . . 



En tant que détective, vi 
appel d'une vieille connaissance, Julia, qui 
vous invite à vous rendre au manoir de 
Morte vielle. 



^ Une fois arrivé sur les lieux, \ 
nez que Julia est morte, décédée 
remment de mort naturelle. 

Alors, où se trouve le mystère ? 

C'est ce que vous devez découvrir en 
utilisant les menus déroulants dont vous 
disposez et en examinant les graphismes 
de qualité qui vous sont offerts. 



Noms n'allons pas vous donner la solution 
complète (pas encore !) mais vous indiquer 
les éléments nécessaires et les lieux stratégi- 
ques pour réussir à éclaircir ce mystère. 
Parmi tous les objets que vous découvrez, voici 
ceux qui sont indispensables : un poignard, 
une bague surmontée d'une croix, un objet 




OPERA TION 
WOLF 



Quant aux lieux où vous pourrez dénouer 
l'intrigue, ily a essentiellement la cave 
et le grenier où vous avez des actions spé- 
cifiques à accomplir. Pour ce qui est des 
réponses aux 10 questions, cherchez dans 
le manoir tous les indices et, en particu- 
lier, profitez du rassemblement à la cha- 
pelle pour visiter les chambres tranquil- 
lement... 

Edité par : Lankhor 
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C'est une véritable opération kami- 
kaze qui vous est proposée sur 6 éta- 
pes se déroulant dans des espaces aussi 
différents que, par exemple, la jungle, un 
village ou un aéroport. Le principe est sim- 
ple : tuer ou être tué à petit feu, une échelle 
de vie étant endommagée à chaque fois 
que vous êtes touché. Au début, vous 
disposez de 7 cartouches de mitrailleuse 
et de 5 grenades ce qui n'est pas énorme 
face à la horde d'ennemis que vous de- 
vez abattre sans compter les tanks et les 




hélicoptères ! De plus, il ne faut pas tou- 
cher les civils et à partir du 5ème tableau, 
il faut libérer les otages. Pour vous faci- 
liter un peu les choses, vous récupérez 
en cours de jeu des cartouches de mi- 
trailleuse ou des grenades ; de plus tous 
vos dégâts disparaissent après le 3ème 
tableau et vous bénéficiez d'une nouvelle 
réserve de munitions après le 4ème ta- 
bleau. Alors, pour profiter pleinement de 
ce logiciel à l'action rapide qui demande 
des experts pour parvenir à la fin, lisez 
les quelques conseils qui suivent... 



Commencez par bien «sentir» le déplacement 
de votre viseur car les graphismes sont tels 
que parfois on ne le distingue. vi.u= Cvm:>v 
vous pouvez récupérer des armes, vous avez 
intérêt à tirer presque en continu. De plus, 
retenez bien cet ordre dans le choix des enne- 
mis à abattre à l'écran : d'abord tes soldats 
en bleu qui lancent des grenades ou poignards 
meurtriers puis les hélicoptères ou les bateaux, 



les tanks et ensuite le raie. Aux 4ème 
et 6ème tableaux où les tireurs de pre- 
mier plan ont un gilet pare-balles, il faut 
les viser en pleine tète. Si, après toutes 
ces explications, vous éprouvez encore 
.■■■;, .'. ■■ ■ 
un tour du côté de «Vous avez dit astu- 
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ROBOCOP 



Après avoir subi de sérieux 

dommages en tant qu'humain, on 

a ramassé vos morceaux et on a fait 

de vous une redoutable machine à 



Seulement, la n 

venue et vous avez décidé de vous 

venger ! 

Devant des graphismes de bonne 
qualité et une animation relativement 
rapide (sauf dans les séquences où 
vous utilisez des escaliers), vous res- 
sentez une soudaine envie de fran- 
chir les 9 niveaux qui vous séparent 
de la fin. 



Face aux niveaux de pure arcade comme, par 
exemple, les 1er, 3ème ou 5ème, c'est l'expé- 
rience qui se révèle la plus efficace afin de 
prévenir l'attaque des ennemis. 

Par contre, dans le second tableau, s'il vous 
reste beaucoup d'énergie, tirez dans le tas car 
ça n'a alors aucune importance si vous tou- 
chez la fille (la pauvre !). 

Enfin, dans le 4ème tableau, avec la recher- 
che du portrait-robot, n'essayez pas forcément 
de le reconstituer sans faute dès la Ire fois 
car la comparaison des différentes parties est 



plus simple une fois qu'un visage complet est 
affiché. 
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Voici un logiciel absolument su- 
perbe qui, en plus, a l'avantage 
de présenter 3 parties qui apportent 
une réelles diversité de jeu. 
Par ailleurs, il faut noter une présen- 
tation très agréables avec des graphis- 
mes travaillés, colorés et une anima- 
tion époustouflante, principalement 
dans la seconde partie du jeu. 
Les chevronnés du joystick vont 
pouvoir sans problème se casser les 
ongles sur leur manette... Vous in- 



carnez Savage un valeureux guerrier qui 
est fou furieux pour cause d'enlèvement 
de sa belle. 

Il n'hésite donc pas à asséner de grands 
coups de hache aux monstres qui se pré- 
sentent, il récupère les protections, réser- 
ves d'énergie ou autres armes qui se trou- 
vent sur son chemin, et fait des bonds 
prodigieux et précis pour passer des «lacs» 
de feu avec parfois des points d'appui qui 
s'enfoncent dans les flammes si vous y 
restez trop longtemps. 

La seconde par- 





tie est infernale et vous oblige à vous faufiler entre des to- 
tems serrés et arrivant rapidement tout en cherchant des crâ- 
nes, fantômes ou autres pour marquer les 400 points néces- 
saires pour aborder la suite dans les meilleures conditions. 
Dans cette partie, vous êtes un oiseau magnifique et fra- 
gile face aux divers monstres ou aux herses qui vous gui- 



Pour la Ire partie, vous n'avez d'autre possii ■ ■ fut 
rapide, expérimenté et déterminé ; vous obtiendrez alors une 
récompense intéressante en fin de partie concrétisée par le 
mot de passe SABATTA qui offre 3 vies pour la seconde par- 
tie et vous donne ainsi l'espoir de la terminer. 

Vous avez alors un nouveau mot de passe, qui, lui aussi, 
vous donne 3 vies pour la dernière partie ; il s'agit cette fois 
j„ rcDi-i ic 
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^ Et, si malgré tout, vous n'arrivez pas à ter- 
miner chaque partie de ce jeu qui en vaut la 
■peine, allez donc faire un tour du côté de no- 
tre rubrique «Vous avez dit astuces ?» ;vous 
pourrez avoir ainsi des vies infinies... 

Edité par :¥iiébiid 
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Inspiré du jeu d'arcade Super Qix, c'est 
la première fois qu'il est adapté sur 
Amstrad. Vous commencez par remar- 
quer qu'il y a un graphisme plein écran 
de style Arkanoïd ; les graphismes en 
eux-mêmes sont travaillés et très colo- 
rés et l'animation est très rapide. Il s'agit 
de libérer une princesse qui est 
retenue prisonnière dans un 



4 personnages fantastiques viendront un 
jour. 

Pour cela, ils vont devoir traverser plu- 
sieurs territoires où règne une sorcière et 
ses mauvais sorts ainsi qu'un monstre qui 
se trouve dans tous les territoires. 

Etant donné le degré de difficulté, des 
heures d'entraînement seront nécessaires 
pour parvenir à vos fins. 



Testez les capacités de chaque personnage 
à votre disposition et surtout ne restez 
jamais en place car vous perdez une vie. 
Alors, ne laissez pas souffler le monstre 
et ainsi vous pourrez 
couvrir les 75 % de 
l'écran nécessaire 
pour passer au ter 




TOTJ\L ECLIPSE 



Dans les années trente, le monde 
étonné découvre une malédiction 
pharaonique pas piquée des hanne- 
tons : lors de la prochaine éclipse de 
Soleil, une catastrophe interplanétaire 
va être déclenchée dans une des sal- 
les du sommet de la grande pyra- 
mide. 

Un archéologue de renom qui se trou- 
vait justement dans le coin décide de 
se rendre au monument égyptien. 
Muni d'une gourde d'eau, d'une 
boussole et d'une montre, le coura- 
geux explorateur va pénétrer dans le 
labyrinthe dos salles. Il ne connaît 
bien sûr pas tous les pièges et les 
dangers que recèle la demeure pha- 
raonique. 

La température à l'intérieur du bâti- 
ment est assez élevée. 



Il importe de se réapprovisionner en eau 
grâce aux petits réservoirs disposés dans 
certaines salles. 

Les momies doivent rester dans leur sar- 
cophage fermé car sinon elles deviennent 
dangereuses. 



Vous avez deux ennemis princi- 
paux le temps et mitre forme. Le 
premier est inaltérable, donc puez 
plutôt sur le second: renouvelez fré- 
quemment vos réserves d'eau et 
surtout, surtout regardez sous vos 
pieds lorsque vous entrez dans une 
nouvelle pièce (une chute est si vite 
arrivée). Quelques énigmes, l'œil 
qui commande l'ouverture d'une 
porteest désactivépar un autre œil 
situé dans une pièce voisine. 



Les traces de pas révèlent les p 
secrets. Sous certains angles, le 
les de momies ne peuvent vous attein- 
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Pour changer de leur série de si- 
mulations (Crazy Cars, Fire & 
Forget, Off Shore Warrior), Titus a 
décidé de sortir un casse-briques et 
ils ont très bien fait car Titan est tout 
simplement génial ! 
En effet, les 80 tableaux pésentent la 
particularité de ne pas apparaître en 
entier à l'écran. Par ailleurs, les cou- 
leurs et l'emplacement des bri- 
ques varient à chaque fois ; cer- 
taines briques sont indes- 
tructibles et d' 

■e frappées 4 fois 

avant de disparaître. 

Enfin, les décors 

jouent un rôle 

nport.nt 



thes ou introduisant des difficultés sup- 
plémentaires sous forme de tête de mort, 
par exemple. A noter qu'il faut être très 
vigilant car la surface couverte par la balle 
est gTande (notamment dans les derniers 
tableaux) et il faut souligner le scrolling 
saisissant sans oublier les graphismes soi- 
gnés. 




quer la balle et à l'orienter comme vous 
le souhaitez (mais si, c'est possible l). 
Pour changer de direction à angle droit, 
coincer petit à petit la balle contre un 

Ï/Vt- ■ ■ v .. .■ . 

la batte sur la balle, et de repartir dans 
le sens voulu. Il est également possible 
de bloquer la balle en marche en agis- 
sant un tout petit peu sur la batte pour 

'.r la balle. 
Vous modifiez ainsi son angle à vo- 
tre guise. Vous serez donc effi- 

temps pour chaque toi 

Edité par: Titus 
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Non communi- 
qué 




Nous vous présentons chaque mois quelques 
logiciels qui on! tous un poinl commun : leur 

En effet, ce sont des programmes qui valent 
" 20 balles" en Angleterre et vous pourrez vous 
les procurer pour la modique somme de 26 
francs, port compris, en vous adressant chez 
DUCIIET COMPUTERS dont voici les coor- 
données .* 
51 St George Road 
CHEPSTOWNP65LA 
ANGLETERRE 
Tel (44) 291. 625. 780 



BOMB JACK 




Est-il encore besoin de présenter Bomb 
Jack qui est devenu véritablement un 
classique parmi les classiques ? C'est un 
événement que son apparition dans la 
catégorie des budgets et vous pouvez tous 
vous précipiter sur cette cassette car une 
logitheque sans Bomb Jack ne se conçoit 
pas ! 

Plongez donc sans restriction dans les 
aventures de ce personnage masqué, vêtu 
d'une cape qui vole à la recherche de 
bombes allumées (parce qu'elles rappor- 
tent 2 fois plus de points, tout en évitant 
les adversaires qu'il n'est même pas per- 
mis de frôler sous peine de mort instan- 
tanée. Heureusement que des capsules 
magiques apparaissent de temps à autre : 
B pour les bonus, P pour transformer les 
ennemis en soleil que l'on peut alors cro- 
quer et E pour donner une vie supplé- 
mentaire. 



Edité par: Encore 
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Stuntbike 
simulator 



Que le maître des cascadeurs entre en 
scène ! Vous pouvez prendre cette 
phrase au sens propre car vous commen- 
cez par arriver en deltaplane et devez faire 
en sorte d'atterrir directement sur votre 
vélo... C'est très fort ! La deuxième phase 
consiste à sauter au-dessus de troncs 
d'arbres sachant que la route est truffée 
do crevasses et decônes de travaux rouge 
et blanc qui vous ralentissent ; à vous de 
choisir le meilleur chemin car, sinon, le 
compte à rebours ne sera pas tendre pour 
vous ! Pour la troisième phase, les obsta- 
cles sont toujours là mais, cette fois, vous 
devez vous précipiter dans des cercles de 
feu pour retomber ensuite sur votre vélo. 
De plus en plus fort ! Mais ce n'est rien à 
côté de la 4ème partie où vous jouez à 
cache-cache avec des camions avant de 
faire une sortie mémorable en hélicoptère ! 
A aucun moment, vous n'aurez touché 
le sol... enfin, si tout se passe bien. 



Edité par : Silverbird 




A VIEW 
TOAKILL 



C'est dans la peau d'un agent secret 
hors pair que vous êtes convié à vi- 
vre cette aventure puisqu'il s'agit ni plus 
ni moins de James Bond... Une fois en- 
core, le monde est en péril à cause des 
plans du diabolique Max Zorin ; pour 
contrer cette offensive, vous n'avez pas 
une mais trois missions à accomplir. 
La première se passe dans une mine 
au-dessous de la «Silicon Valley». Il faut 
visiter tous les méandres de la mine pour 
trouver et désamorcer la bombe qui s'y 
trouve en tenant compte du temps qui 
s'écoule et en utilisant les objets que vous 
trouvez. En fin de mission, un code vous 
est fourni et vous partez dans le «City 
Hall» de Los Angeles qui est en flammes. 
Ce n'est pas une mince affaire de se sor- 
tir de cet immeuble... Enfin, tout se ter- 
minera dans les rues de Paris par une 
course folle au volant d'un "bolide» qu'il 
va falloir contrôler correctement jusqu'au 
point fatidique. 



Edité par ;BugByt 




ASTUCES 

M m ous êtes très nombreux à nous écrire à propos de cette rubrique en 
■f nous disant en substance : mais comment ça marche ? Alors, pour tout 
W ceux qui éprouvent quelques problèmes avec les bidouilles, voici 
toutes les explications nécessaires. 

Lorsque vous trouvez dans nos colonnes un listing de vies infinies qui vous 
intéresse, allumez tout de suite votre écran de CPC et commencez à le saisir. 
Une fois que cette opération est terminée, vous sauvegardez ce listing sous le 
nom qui vous convient le mieux. 

Pour passer aux essais, vous éteignez puis vous rallumez votre ordinateur et 
vous chargez votre programme de bidouilles par un ordre LOAD; vous 
mettez alors en place le programme concerné par l'astuce et vous lancez la 
mise en route par un ordre RUN ; voilà ! Vous n'avez plus qu'à attendre que 
le jeu soit chargé et vous pourrez alors constater par la pratique toute la 
portée du programme d'astuce. 



10 'SAVAGE Disquette 1ère partie 

20 MODE 2:PIIMT 'Appuyez sur une to 

uche après avoir insère la disquett 

e Savage...' 

30 CAI.L &BB06 

40 LOAD'LOADER2.B1N 

50 POKE U0B1,0:P0KE fcA0B2,lAl 

60 FOR 1=&A100 T0 fcA107:READ A*:PÛK 

E l.VALt't'+AthHEXT 1 

70 DATA 3E,FF,32,3C,03,C3,00 T 0t:CAL 

L tcAOOO 

10 'SAVAGE Disquette 2eie PARTIE 

20 RODE 2:P6INT 'Appuyez sur une to 

uche après avoir insère la disquett 

e Savage face G..." 

30 CALL &BB06 

40 LOAD 'L0ADER.BIH 

50 POKE àAÛBi.OiPQKE &AÛB2,Ui 

60 FOR I=U100 TO U107:fiEAD A*:P0K 

E I.VALfb'+AlkNEXT I 

70 DATA 3E,3C,32,63,OD,C3,00,01:CAL 

L U000 

10 'SAVAGE Disquette 3eae PARTIE 

20 H0DE 2:PRINT 'Appuyez sur une to 

uche après avoir insère la disquett 

e Savage face B..." 

30 CALL &BB06 

40 LOAD 'L0ADER2.BIN' 

50 POKE UOBl,l:P0KE U0B2.U1 

60 FOR l=4A0101 T0 U10E:READ A4 : PO 

KE l,VAL('fc'*A»):NEIT I 

70 DATA 21,3C,08 ( 36,3E,23 1 36,FF,23, 

36,00,C3,00,Û1:CAU. fcAOOO 





En utilisant chacun des 3 
programmes pour la 
partie qui s'y rapporte, vous serez doté 
de vies Infinies ce qui vous permettra 
de terminer chaque Jeu en faisant 
quand môme preuve de votre habi- 
leté au maniement du joystick. . . 



10 'SAYAGE Cassette 1ère partie 

20 HEHORY &9FFF 

30 LOAD ■LEVELt! , ,&A000 

40 POKE fcA0E2,tCl:P0KE iA0E3 r &Al 

50 FOR 1=0 T0 7:READ A* 

60 POKE &A1C1+I,VALC*&"+ÀS):NEXT 

70 CALL 4A000 

80 DATA 3E,FF,32,3C.3,C3,00,01 

10 'SAVAGE Cassette 2ete partie 

20 HEHORT bSFFF 

30 LOAD 'LEVEL2!',tA0OO 

40 POKE &AÛE2,( I C1:PQKE U0E3,fcAi 

50 FOR 1=0 T0 7:8EAD Al 

60 POKE liAlCm^ALCt'tAOïHEXT 

70 CALL M000 

80 DATA 3E F FF,32,B1.2fi,C3,0Q,01 

10 'SAVAGE Cassette 3eie partie 

20 KEHDRÏ tôFFF 

30 LOAD "LEVEL3!",fcA0OO 

40 POKE ÉrAûE2,É,Cl:P0Kt: bA0E3,&Al 

50 FOR 1=0 T0 7:8EAD Ai 

60 POKE (.AlCl+l.VALI't^AiJîHEXT 

70 CALL U000 

60 DATA 3E,FF,32,OO,OD,C3,00,ûl 




OPERATION WOLF 



Pour tous ceux qui s'en- 
traînent depuis des jours 
et des jours avec Opération Wolf sans 
parvenir à en voirla fin, ce programme 
est votre sauveur. . . D'accord, Il est un 
peu long et fastidieux à taper mais 
quelle joie d'avoir au bout du comp- 
te vies Infinies et réserves de munitions 
et grenades inépuisable... 




FIRE AND FORGET 



SI malgré les conseils que 
nous vous avons donnés 
dans notre dossier vous ne terminez 
pas les courses pour cause de man- 
que de fuel, tapez le petit listing sui- 
vant : Il coulera alors à flots. 



10 'FIRE AND FORGET Disquette 

20 OPEKOUrDMeiORT IFTFiCLOSEOUT 

30 FOR 1=0 T0 15: IHK l.0:NEXT 

(0 L0AD"PR0G",!<F80 

50 P0KE M3BD,0:P0KE &53D8,0:P0KE t 

5353,0 . 

60 CALl .1000 /WD 



10 'OPERATION Ï0LF - David SiKA 
20 BORDEE 0:KÛDE 2:IHK O.OilNK 1,24:PAPER 0:PEH 1 
30 PEINT "Patientez... Chargement des datas* 
40 FOR 4=12000 TO t22BD:READ AI:B=ÏAL("i"tAlkPOI:E A,B:C=CtB:«QT 
50 IF CO73080 THEN PRIHT CHII<7):"Erreur dans les datas.. .":END 
60 CLSîPRINT "Insérez la disquette d'Opération Wolf et appuyez sur une touche" 
70 CALL &BB06:CALL 12280 

80 DATA 00,31,00,CO,D9,01,8D,7F,ED,»9,D9,AF.67,08.7C,6C,5D.53,i3,Oi,00,A8.77 
90 DATA ED.BO. 21, DD,AA,5D,S4, 13, 01. 55, 69. 77, ED,B0,D9,0E,89, £0,49,09,21. 00,06 
100 0ATA3E,44,B£,2B,03,23,18,FA,23,23,23,5E,23,S6,EB,22,44,A8,CD,44,00,CD,BD 
110 DATA O8,D9,01,8D,7F,£D,49,D9,21,5S,A6,0E,FF,C3,16,BD,F3,3l,O0,C0,CD,12,A9 
120 DATA 21,8D,A8,CD,64,A8,18,3C,06,10,AF,C5,F5,46,48,23,E5,CD,32,BC,E1,F1,3C 
130 DATA Cl,lO,Fl,7E,E5,CD,0E,BC,El,23,46,48,CD,36,BC,F3,01,54,7F,3E,10,ED,79 
140 DATA ED,49,C9,0O,O9,0C,lS,03,O6,0F,18,19,lA,01,O2,0B.14,0D,OA,O0,O0,O0,3E 
150 DATA 01,01,7E,FA,FJ),79,3C,32,AO,AA,CD,2A,A9,21,AD,AA,16,00,OE,49,CD,C4,A9 
160 DArA3E,O3,32,AO,AA,CD,12,A9,3E,01,21,00,C0,CD,6B,A9,CD,0E,A9,O6,04,C5,21 
170 DATA 00, 00,2B,7C,B5,20,FB,C1, 10, F4,3E,02,21, 80,01, CD,68,A9,AF, 32,36, 25,32 
180 DATA A0,2C,21,F8,A8,lt,50,2C,01,0D,O0,ED,B0,01,7E,FA,ED,49,AF,32,A9,AE,32 
190 DATA 9A.AE, 00,00,00,00,00,00,00,00,00, FF,21,00,6A,FB,E9,3E,28, 18,01, AF, 01 
200 DATA 01,BC,ED,49,O4,ED,79,C9,3E,0F,01,54,7F,ED,79,ED,49,30,F2,21,A9,C9,3E 
210 DATA 03,32, A4, AA,21, 00, 40,16,O0,0E,48,CD,a,A9, 21, 00,50,16, 00,OE,48,CO,C4 
220 DATA A9,01, 00,02,21, 00,50, 11, 00, 40, 1A,BE,20,OE,23,13,OB,78,B1,20,F5,21, A4 
230 DATA AA,35,20,D2,00, 21, 40,00,11, 41, 00, 01, 00,80,C9, 00,21, AO,AA,4F,DD,7E,00 
240 DATA B9,28,0A,DD,23,DD,23,DD,23,DD,23,18,F0,DD,56,Ol,DD,5E,O2,DD,46,O3,3E 
250 DATA 06,93,88,36, 07, 7B,8O,3D,4F,C3,BO,A9,0E,05,C5,F5,E5,D5,CD,BO,A9,Dl, El 
260 DATA Fi, C1,5F,78,93,47,CB,23,C1,23,7C,83,67,1E,01,14, 16, D6, 74,32, 94,AA,32 
270 DATA 9D,AA,22,F1,A9,7B,32,9F,AA,79,32,A1,AA,18,11,7A,32,94,AA,32,9D,AA,22 
280 DATA F1,A9,79,32,9F,AA,32,A1,AA,11,97,AA,CD,0D,AA,3A,A5,AA,B7,20,F4,11,91 
290 DATA AA,CD,F7,A9,U,97,AA,CD,OD,AA,11,9A,AA,21,00,40,CD,15,AA,C9,CD,08,AA 
300 DATA 11,95,AA,CD,OD,AA,21,J5,AA,CB,6E,28,F3,C9,01,60,AA,18,OB,01,42,AA,21 
310 DATA A5.AA, 18,03,01, 37,AA,ED,43,2F,AA,1A,47,13,C5,1A,13,CD,66,AA,C1, 10, F7 
320 DATA 01,7E,FB,11,10,20,C3,37,AA,OC,ED, 78,77,00,23, ED, 78, F2,37,A»,A2,20,F2 
330 DATA 21, A5,AA,ED,78,FE,C0,38,FA,OC,ED, 78,77, 0D,23,3E,O5,3D,2O,FD,ED,78,A3 
340 DATA 20,EA,3A,A6,AA,E6,04,C0,37,C9,ED,78,F2,6O,AA,C9,01,7E,FB,FS,ED, 78,87 
350 DATA30,FB,87,30,O2,Fl,C9,Fl,OC,ED,7B,OD,3E,O5,3D,0O,20,FC,C9,C5,O6,F5,E0 
360 DATA 76,1F,38,FB,ED,78,1F,30,FB,C1,10,F0,C9,03,0F, 00,00,01, 08,02,44,00,09 
370 DATA 4C,00,00,00,48,02,48,2A,FF,03,00, 00,00,00,00,42,02,00,00,00,00,21, 00 
380 DATA 20,11, 00,A8,01,00,03,ED,BO,C3,55,A8 
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RESULTATS CONCOURS 

A 320 



e longuement entraîné aux commandes de TA320 et avoir pleinement profit d>.i cobi de grâce octroyé 
iur nous envoyer votre bulletin, voici l'instant fatidique des résultats. A noter que l'erreur 
la plus fréquente s'est produite sur la fréquence radio du pirate. . . 
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LES GAGNANTS r 

1 - Drice DESLANDES - 49480 St Sylvain d' Anjou/2 - Jean-Baptiste POULIZAC - 34150 Gignac 
3 - Jean-Marc JEROME - 54000 Nancy /4 - Pierre-André LAUBU - 06800 Cagnes sur Mer 
5 - Jérôme JUAN - 06500 Menton/6 - Jean-Marie LEHMANN - 67100 STRASBOURG 



